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1. 


INTRODUCTION 


As  a  consequence  of  the  complexity  of  the  thermal  second 
breakdown  problem,  past  theoretical  efforts  have  been  limited  to  treat¬ 
ing  only  portions  of  the  overall  problem.  Solutions  of  this  nature 
involve  numerous  restrictive  assumptions  to  reduce  the  state  equations 
describing  semiconductor  physics  to  a  simplified  form  to  facilitate 
a  particular  solution  procedure.  Solution  comprehensiveness  is  lost 
under  these  conditions  since  the  various  mechanisms  composing  thermal 
second  breakdown  are  decoupled  and  considered  on  an  individual  basis. 

This  study  presents  the  development  of  a  comprehensive  numerical 
diode  model  which  is  used  to  simulate  thermal  second  breakdown.  The 
electrical  characteristics  of  the  model  are  predicted  through  the  charge 
transport  equations  which  yield  the  mobile  hole  and  electron  concen¬ 
trations,  and  the  electric  field  profile  as  functions  of  position  and 
time  throughout  the  diode  structure. 

The  primary  difference  between  this  model  and  previously  developed 
models  is  with  respect  to  the  addition  of  temperature  as  a  dependent 
variable.  This  model  expansion  is  necessitated  by  the  temperature 
dependence  of  the  thermal  second  breakdown  phenomenon  and  is  accom¬ 
plished  through  the  inclusion  of  the  energy  continuity  equation.  Hence, 

*  a  theoretical  diode  model  sufficient  for  thermal  second  breakdown 

simulation  is  formulated  at  the  expense  of  additional  model  complexity. 
The  resulting  model  yields  a  unified  simulation  of  the  thermal  second 
breakdown  transition  by  including  both  one-dimensional  electrical 
effects  and  simplified  two-dimensional  thermal  effects.  The  model 
features  a  contact-to-contact  transient  simulation  with  realistic 
terminal  boundary  conditions  and  a  constant  temperature  header. 

To  demonstrate  the  numerical  diode  model  a  thermal  second  break¬ 
down  simulation  for  a  typical  diode  design  is  presented.  For  this 
simulation  the  diode  is  initially  in  a  low-level,  reverse  bias  state. 
Upon  being  pulsed  with  a  high  amplitude  constant  current  pulse,  the 
diode  undergoes  a  dynamic  transient  which  terminates  in  a  stable 
post-second  breakdown  state.  During  this  transient  the  diode  model 
exhibits  electrical  and  thermal  behavior  that  closely  approximates 
experimental  characterizations  of  this  phenomenon. 

Preliminary  investigations  with  the  numerical  model  have  led  to 
several  conclusions  with  respect  to  thermal  second  breakdown.  First, 
it  is  observed  that  junction  inhomogeneities,  current  constrictions 
and  variable  perturbations,  through  various  mechanisms,  are  not 
required  to  initiate  and  support  thermal  second  breakdown.  This  implies 
that  thermal  second  breakdown  is  a  fundamental  aspect  of  semiconductor 
physics  and  thus  is  a  property  of  the  semiconductor  state  equations. 
Various  junction  inhomogeneities,  etc.,  simply  serve  to  enhance  or 
prematurely  initiate  this  phenomenon.  Second,  the  simulation  results 
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support  the  theory  that  thermal  second  breakdown  Is  primarily  a  con¬ 
sequence  of  thermal  quenching  of  avalanche  breakdown  by  the  diode 
leakage  current.  Third,  it  is  observed  that  the  thermal  second  break¬ 
down  transition  results  in  all  but  a  total  collapse  of  the  junction 
voltage  without  the  benefit  of  a  melt  filament, 

The  remainder  of  this  study  consists  of  three  additional  sections 
and  an  appendix.  Section  2  presents  a  description  of  thermal  second 
breakdown  in  thin  film  siliconr-onrsapphire  diodes.  The  development 
of  the  numerical  model  is  presented  in  Section  3,  Section  4  gives  an 
example  second  breakdown  simulation  along  with  recommendations  for 
further  study,  Appendix  A  contains  a  summary  of  equations  pertinent 
to  the  numerical  model  and  Appendix  B  presents  a  description  of  the 
computer  program  version  of  the  numerical  model. 
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2. 


DESCRIPTION  OF  THE  THERMAL  SECOND  BREAKDOWN  PHENOMENON 


Comprehensive  experimental  investigations  have  provided 
detailed  insight  into  the  physics  of  thermal  second  breakdown.  The 
resulting  description  of  the  second  breakdown  mechanism  is  presented 
in  this  section  along  with  consideration  of  the  applicability  of  a 
one-dimensional  numerical  analysis  of  this  phenomenon. 

2.1.  Thermal  Second  Breakdown  In  Thin  Film  Silicon-On- 
Sapphire  Diodes  c 

Experimental  investigations  into  the  thermal  second 
breakdown  phenomenon  were  restricted  primarily  to  electrical  measurements 
and  physically  destructive  autopsies  until  the  advent  of  a  new  experi¬ 
mental  technique  developed  by  Sunshine  and  Lampert  [l]  and  further 
refined  by  Busenstein  et.al.  [2].  This  technique  employs  thin  film 
silicon-on-sapphire  (SOS)  diodes  in  conjunction  with  a  temperature 
monitoring  system  which  yields  a  spacial  resolution  of  down  to  one  micron 
and  a  temperature  resolution  of  a  few  degrees  Celsius.  Furthermore,  when 
this  technique  is  used  stroboscoptically  time  resolutions  on  the  order 
of  nanoseconds  were  obtained.  The  system  developed  for  these  studies 
also  allowed  enhanced  observation  of  light  emission  by  the  specially 
designed  specimens.  The  subsequent  experiments  yielded  a  thermal  and 
temporal  picture  of  the  second  breakdown  mechanism. 


Experiments  performed  by  this  new  technique  revealed  a  four  phase 
transition  into  the  post-second  breakdown  mode  of  operation  for  reverse 
biased  SOS  diodes.  The  test  diodes  were  reverse  biased  by  constant  cur¬ 
rent  pulses  and  the  subsequent  voltage  and  thermal  characteristics  were 
monitored  as  a  function  of  time  with  the  current  pulse  amplitude  serving 
as  a  variable  parameter.  First,  the  diodes  were  observed  to  undergo  a 
transition  from  a  non-uniform  avalanche  breakdown  to  a  uniform  avalanche 
breakdown.  Second,  one  or  more  hot  spots  formed  within  the  junction. 
Third,  the  hot  spots  elongated  into  the  high  resistivity  side  of  the 
junction  forming  thermal  filaments.  Fourth,  coincident  with  bridging 
of  the  high  resistivity  region  by  a  thermal  filament,  rapid  growth  of  a 
melt  filament  interior  to  the  thermal  filament  occurred.  The  remainder 
of  this  section  is  devoted  to  a  detailed  description  of  each  of  these 
four  phases  of  second  breakdown  development  as  reported  by  the  above 
researchers. 


2.1.1  Avalanche  Breakdown  Transition 

Avalanche  breakdown  is  accompanied  by  light  emmission 
which  is  proportional  to  the  avalanche  generated  current;  therefore, 
the  uniformity  of  the  avalanche  breakdown  along  a  junction  can  be 
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investigated  through  the  subsequent  emission  pattern.  Upon  pulsing  a 
SOS  diode  with  a  constant  current  pulse,  the  initial  avalanche  emission 
pattern  is  nonuniform  indicating  avalanche  breakdown  at  discrete  loca¬ 
tions  along  the  junction.  However,  the  emission  pattern  uniformity 
along  the  junction  increased  with  increasing  junction  temperature  and 
current.  This  relationship  is  attributed  to  the  negative  temperature 
dependence  of  the  avalanche  coefficients  and  space-charge  induced  de¬ 
pletion  region  widening.  The  tendency  toward  avalanche  breakdown  uni¬ 
formity  for  increasing  temperature  implies  a  thermally  stable  mechanism 
which  is  contrary  to  the  thermal  second  breakdown  mechanism. 

2,1,2  Junction  Hot  Spot  Nucleation 

The  second  phase,  and  perhaps  the  most  crucial,  begins 
with  the  appearance  of  one  or  more  hot  spots  within  the  junction.  These 
hot  spots  are  discrete  regions  along  the  junction  which  manifest  a  tem¬ 
perature  considerably  higher  than  that  of  the  surrounding  semiconductor 
region.  Temperature  measurements  for  these  regions  yield  temperatures 
in  excess  of  the  resistivity  turn-over  temperature  for  the  impurity 
concentration  on  the  high  resistivity  sidfe  of  the  junction.  The  resis¬ 
tivity  turn-over  temperature  corresponds  to  that  temperature  for  which 
the  resistivity  versus  temperature  charateristics  for  silicon  passes 
through  a  maximum.  Temperatures  in  excess  of  the  turn-over  temperature 
result  in  an  unstable  condition  which  supports  the  formation  of  current 
constrictions.  A  local  increase  in  current  produces  a  higher  tempera¬ 
ture,  which  produces  a  corresponding  decrease  in  resistivity,  which 
causes  a  further  increase  in  current,  etc.  Although  this  condition 
most  certainly  enhances  second  breakdown  through  current  f ilamentation, 
it  does  not  account  for  the  large  decrease  in  diode  voltage  which  occurs 
during  the  second  breakdown  transition  for  a  constant  current  pulse. 

This  aspect  of  second  breakdown  is  attributed  to  a  thermally  motivated 
quenching  of  avalanche  breakdown.  It  was  noted  that  the  junction  sat¬ 
uration  current,  or  leakage  current  increased  rapidly  with  increasing 
junction  temperature.  Upon  pulsing  a  junction  with  a  constant  current 
pulse  the  leakage  current  component  corresponds  to  the  initial  junction 
temperature.  The  difference  between  the  current  pulse  amplitude  and 
the  initial  leakage  current  is  compensated  for  through  avalanche 
breakdown.  The  large  voltage  associated  with  avalanche  breakdown,  in 
conjunction  with  the  increased  current  level,  raises  the  junction 
temperature  through  joule  heating.  This  in  turn  leads  to  an  increase 
in  leakage  current  and  an  equal  decrease  in  avalanche  generated  current. 

The  junction  voltage  does  not  reflect  this  change  in  the  current 
generation  mechanism  until  the  leakage  current  becomes  virtually  equal 
to  the  total  diode  current  since  avalanche  breakdown  voltage  is  essen¬ 
tially  independent  of  the  avalanche  breakdown  current.  However,  once 
the  leakage  current  takes  on  values  comparable  to  the  total  current, 
the  junction  voltage  becomes  increasingly  sensitive  to  further  increases 
in  leakage  current,  as  avalanche  breakdown  is  quenched.  Accordingly, 
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junction  hot  spots  are  associated  with  a  thermally  motivated  change  in 
the  diode  current  generation  mechanism.  The  extent  to  which  this 
mechanism  reduces  the  diode  voltage  is  dependent  upon  the  spacial 
and  thermal  characteristics  of  the  subsequent  junction  hot  spots.  This 
topic  recieves  further  consideration  in  Section  2.1.3.  Moreover,  this 
explanation  for  junction  hot  spot  physics  is  further  supported  by 
the  observation  that  avalanche  light  emission  is  extinguished  within 
and  to  either  side  of  the  junction  hot  spot  regions.  A  large  amount 
of  current  is  funneled  through  this  region  ballasted  by  spreading 
resistance  in  the  bulk  region.  This  spreading  resistance  is  accom¬ 
panied  by  a  voltage  gradient  in  the  bulk  regions  and  along  the  junction. 
At  some  distance  along  the  junction  and  away  from  the  hot  spot  region, 
avalanche  breakdown  voltage  is  obtained  as  a  consequence  of  the  lateral 
current  flow  and  thus  accounting  for  avalanche  light  emission  in  regions 
of  the  junction  away  from  the  various  junction  hot  spots. 

For  low  amplitude  current  pulses  a  single  hot  spot  almost  invari¬ 
ably  forms  in  the  center  of  the  junction  as  would  be  expected  from 
purely  thermal  considerations.  On  the  other  hand,  for  increasing  cur¬ 
rent  pulse  amplitude  multiple  junction  hot  spots  begin  to  occur.  This 
dynamic  process  begins  with  the  initiation  of  a  high  amplitude  current 
pulse.  Several  hot  spot  regions  quickly  develop  across  the  junction 
without  any  apparent  relation  to  the  device  geometry  or  neighboring 
junction  hot  spot  regions.  This  seemingly  random  behavior  is  possibly 
a  consequence  of  some  type  of  junction  inhomogeneity.  With  increasing 
time  additional  hot  spot  regions  continue  to  form  until  a  nearly  uniform 
distribution  is  obtained.  Spreading  resistance  readily  accounts  for 
this  uniformity  trend.  The  number  of  junction  hot  spot  regions  which 
form  tends  to  a  limiting  number  with  increasing  current  pulse  amplitude. 

2.1.3.  Current  Filament  Development 

There  is  no  decisive  division  between  the  second  and 
third  phases  of  second  breakdown  development;  although,  under  certain 
conditions  the  second  phase  can  be  readily  produced  without  initiating 
the  third  phase.  The  third  phase  is  simply  an  elongation  of  a  junction 
hot  spot  into  the  high  resistivity  side  of  the  junction  such  as  to  form 
a  thermal  filament  extending  into  this  region.  The  junction  hot  spot 
elongates  into  the  high  resistivity  side  of  the  junction  because  joule 
heating  is  most  significant  on  this  side  of  the  junction.  Since  the 
resulting  thermal  filament  is  intimately  associated  with  a  high  current 
density,  it  is  often  referred  to  as  a  current  filament.  Growth  of  the 
current  filament  across  the  high  resistivity  region  produces  a  continu¬ 
ous  decrease  in  device  voltage. 

As  with  the  junction  hot  spot  regions,  temperature  measurements 
have  shown  the  thermal  filament  temperatures  to  be  in  excess  of  the 
corresponding  resistivity  turn-over  temperature,  but  less  than  the 
molten  temperature  for  silicon.  Thus,  a  potentially  unstable  situation 
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exists.  To  maintain  the  current  filament  at  a  particular  stage  requires 
a  very  delicate  balance  between  electrical  and  thermal  conditions. 

More  often  than  not,  thermal  filament  formation  is  a  highly  dynamic 
process  resulting  in  a  rapidly  growing  filament  which  leads  directly 
to  the  fourth  and  final  stage  of  second  breakdown  development.  It  may 
be  well  to  mention  that  these  filaments  were,  on  occasion,  observed  to 
exhibit  a  rather  irregular  path  in  translating  the  high  resistivity 
region. 


2.1. A  Melt  Filament  Transition- 

The  fourth  phase  of  second  breakdown  development  is  of 
course  the  climatic  phase  and  it  is  this  phase  which  is  generally  asso¬ 
ciated  with  irreversible  device  damage.  Although  the  growth  of  the 
thermal  filament  across  the  high  resistivity  region  is  in  most  cases 
quite  dynamic,  the  portion  of  this  region  not  covered  by  the  filament 
tends  to  exert  a  governing  influence  on  the  advancement  of  the  thermal 
filament.  Once  the  filament  has  penetrated  this  region,  however,  all 
significant  resistive  ballasting  within  the  device  is  eliminated  creat¬ 
ing  an  extremely  unstable  condition.  As  a  consequence  of  the  high  pos¬ 
itive  thermal  feed-back  associated  with  these  circumstances,  the  current 
filament  undergoes  a  rapid  transition  to  a  molten  filament  with  an 
immediate  thirty-fold,  or  so  increase  in  conductivity.  This  rapid  in¬ 
crease  in  conductivity  results  in  an  equally  rapid  decrease  in  device 
voltage  with  the  final  device  current  and  voltage  levels  being  deter¬ 
mined  primarily  by  the  test  circuitry.  These  events  usually  produce 
irreversible,  catastrophic  damage  and  thus  completing  the  four  phase 
development  of  second  breakdown. 

2.2  One-Dimensional  Analysis  of  Thermal  Second  Breakdown 

The  previous  description  of  thermal  second  breakdown 
was  derived  primarily  through  interpretation  of  experimental  results. 

The  second  breakdown  phenomenon  is  too  complex  to  analyze  through  con¬ 
ventional  analytic  techniques.  The  general  mathematical  model  for 
semiconductor  behavior,  which  is  presented  in  Chapter  3,  consists  of 
four,  nonlinear,  coupled,  partial  differential  equations.  Under  second 
breakdown  conditions,  the  only  reasonable  solution  approach  for  this 
system  of  equations  is  through  numerical  techniques.  Even  for  numer¬ 
ical  techniques  a  comprehensive  three-demens ional  solution,  or  even  a 
two-dimensional  solution,  presents  a  formidable  problem.  A  compromise 
between  model  sophistication  and  solution  complexity  is  required.  To 
this  end,  a  one-dimensional  diode  model  is  selected.  The  major  dis¬ 
advantage  of  this  choice  pertains  to  the  elimination  of  the  current 
constriction  capablity.  On  the  other  hand,  it  presents  an  opportun¬ 
ity  to  investigate  second  breakdown  in  the  absence  of  this  mechanism. 
Furthermore,  the  absence  of  the  current  constriction  mechanism  may  be 
compensated  for,  to  the  extent  desired,  by  simply  increasing  the  diode 
current.  A  diode  current  comparable  to  an  actual  constriction  current 
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effectively  simulates  the  respective  current  constriction.  In  this 
manner,  the  semiconductor  resistivity  turn-over  temperature  and  the 
leakage  current  thermal  dependence  with  respect  to  second  breakdown 
can  be  further  investigated.  Moreover,  the  numerical  model  affords 
the  ability  to  monitor  directly  the  physics  of  second  breakdown. 
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3. 


DIODE  MODEL 


In  this  section  a  one-dimensional  numerical  diode  model  for 
investigation  of  thermal  second  breakdown  is  developed.  The  numerical 
technique  employed  was  essentially  developed  at  Bell  Laboratories  for 
the  analysis  of  the  IMPATT  diode  [3,4].  This  procedure  has  also  been 
used  to  investigate  transient  and  permanent  radiation  effects  in  both 
diode  and  transistor  structures  [5],  as  well  as  for  small  signal  anal¬ 
ysis  [6],  These  models,  however,  are  thermally  independent;  and 
consequently,  insufficient  for  simulation:  of  thermal  second  breakdown. 
Accordingly  the  basic  model  is  expanded  to  include  temperature  as  a 
dependent  variable  to  produce  a  numerical  diode  model  capable  of  simu¬ 
lating  thermal  second  breakdown. 

3.1  Mathematical  Model 

A  comprehensive  mathematical  diode  model  capable  of  sim¬ 
ulating  thermal  second  breakdown  is  developed.  The  model  features 
simplified  two-dimensional  thermal  conduction  along  with  thermally 
dependent  semiconductor  parameters  and  is  characterized  by  four  coupled 
nonlinear  partial  differential  equations  which  are  to  be  solved  simul¬ 
taneously  for  hole  and  electron  concentrations,  electric  field  and 
temperature  as  functions  of  time  and  position. 


3.1.1  Two-dimensional  Thermal  Conduction 

Since  in  practice  semiconductor  devices  are  generally 
mounted  on  some  form  of  header  for  heat  sinking  and  for  physical  support, 
the  validity  of  a  one-dimensional  thermal  conduction  model  is  question¬ 
able.  On  the  other  hand  comprehensive  two-dimensional  thermal  conduc¬ 
tion  is  overly  complex  and  would  destroy  the  important  banded  matrix 
form  of  the  system  of  linear  equations  which  characterize  the  numerical 
model  being  expanded,  A  compromise  solution  which  allows  for  simplified 
two-dimensional  thermal  conduction  without  altering  the  banded  form  of 
the  system  of  equations  for  the  overall  numerical  model  is  depicted  in 
Fig.  3.1.  This  model  exhibits  heat  flow  along  the  longitudinal  axis  of 
the  one-dimensional  diode  structure  and  perpendicular  to  this  axis 
through  the  substrate  into  a  constant  temperature  header  which  functions 
as  an  ideal  heat  sink.  Heat  storage  and  generation  is  restricted  to 
the  diode  structure;  the  substrate  material  simply  acts  as  a  thermal 
resistance  between  the  diode  structure  and  the  constant  temperature 
header.  Since  this  thermal  model  requires  only  a  one-dimensional  temp¬ 
erature  profile  it  can  be  modeled  by  the  one-dimensional  version  of  the 
energy  continuity  equation. 
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For  this  case  the  heat  sink  effect,  associated  with  the  header,  enters 
equation  (3.1)  through  the  power  density  term,  $(x,t).  This  term  is 
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defined  as  a  net  power  density  factor  which  accounts  for  both  heat 
generation  and  heat  lost  by  machanisms  other  than  conduction  along 
the  longitudinal  axis  of  the  diode  model.  From  basic  thermal  conduction 
principles  [7]  and  the  model  design  shown  in  Fig.  3.1,  the  net  power 
density  factor  for  the  case  at  hand  can  be  derived  and  is  given  as 


Kg(x,t) 
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For  some  aspects  of  second  breakdown  theory  it  is  important  to 
monitor  the  distribution  of  thermal  energy  between  that  stored  in  the 
diode  structure  and  that  lost  to  the  substrate  through  thermal  conduc¬ 
tion.  For  this  purpose  the  ratio  of  the  total  amount  of  thermal  energy 
stored  in  the  active  semiconductor  layer  to  the  total  amount  of  ther¬ 
mal  energy  generated,  on  a  per  time  step  basis,  is  evaluated  as 
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And,  in  discrete  form  QSGR  (heat-storage-generation-ratio)  becomes 
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3.1.2  System  of  Equations  for  Mathematical  Model 

The  transient  and  static  behavior  of  a  one— dimensional 
semiconductor  device  is  accurately  modeled  by  a  system  composed  of  the 
carrier  transport  equations  and  the  energy  continuity  equation  as  fol¬ 
lows:  hole  continuity  equation,  electron  continuity  equation,  Poisson 

equation,  and  the  energy  continuity  equation  (3.1),  or 
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and 


*(x,t)  -  |E(x,t)|  [|JpC*.t)l  +  [I(X’t)  ■  V  • 


Additional  subsidiary  relations  are:  Einstein  relation  for  holes, 
Einstein  relation  for  electrons,  intrinsic  carrier  concentration, 
displacement  current  equation,  and  electrostatic  potential  relation: 


D  (x,t)  =  —  y  (x,t)  T(x,t)  ,  (3.13) 
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This  system  of  equations  consists  of  four  independent  nonlinear  coupled 
partial  differential  equations  with  variable  coefficients.  The  system 
variables  include  hole  and  electron  concentrations,  electric  field  and 
temperature  as  dependent  variables  with  time  and  position  as  independent 
variables  and  features  simplified  two-dimensional  thermal  conduction. 

The  system  is  derived  assuming  that  magnetic  effects  are  negligible  and 
that  the  hole  and  electron  current  components  are  adequately  approxi¬ 
mated  through  the  Van  Roosbroeck  equations  [8].  In  practice  both  of 
these  assumptions  have  been  found  to  be  valid.  It  is  also  assumed  that 
the  impurity  dopant  is  completely  ionized  and  that  non-degenerate  doping 
levels  are  maintained  for  the  validity  of  the  Boltzmann  statistics  used 
in  calculating  hole-electron  concentrations. 

3.1.3.  Boundary  Conditions 

Formulation  of  the  mathematical  model  is  not  complete 
without  appropriate  boundary  conditions.  The  two  continuity  equations 
(3.5)  and  (3.6)  and  the  energy  continuity  equation  (3.8)  exhibit  one 
first  order  time  derivative  each  implying  that  three  boundary  conditions 
in  time,  or  three  initial  conditions,  are  required.  It  may  be  suspected 
that  the  first  order  time  derivative  which  appears  in  the  displacement 
current  equation  (3.16)  should  also  be  considered  since  the  system  has 
four  dependent  variables.  This  would  add  another  initial  condition. 
However,  as  a  consequence  of  coupling  between  the  hole,  electron,  and 
electric  field  values  through  the  Poisson  equation  this  additional  ini¬ 
tial  condition  can  be  omitted.  For,  given  the  hole  and  electric  field 
profiles,  or  the  electron  and  electric  field  profiles,  the  third  pro¬ 
file  can  be  evaluated  directly  through  the  Poisson  equation  (3.7).  Then 
the  required  initial  conditions  can  be  written  as 

p(x,0),  E(x,0),  T(x,0)  ,  (3.18) 

or 

n(x,0),  E(x,0),  T(x,0)  (3.19) 


These  initial  conditions  are  usually  available  through  an  approximate 
analytic  solution  or  from  a  previous  simulation. 

Considerably  more  latitude  exists  with  the  spacial  boundary  con¬ 
ditions  than  with  the  initial  conditions.  Examining  the  system  of 
equations  for  the  mathematical  model,  (3.5)  through  (3.8),  with  respect 
to  the  highest  order  spacial  derivative  in  each  variable,  seven  boundary 
conditions  are  indicated.  In  this  case,  system  coupling  does  not  pro¬ 
vide  for  a  further  reduction.  The  two  continuity  equations  yield  one 
second  order  derivative  for  each  carrier  type  implying  that  two  boundary 
conditions  are  required  on  each  of  the  respective  carrier  concentrations. 
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The  Poisson  equation  has  one  first  order  spacial  derivative  of  the  elec¬ 
tric  field  requiring  one  boundary  condition  on  the  electric  field  and 
the  energy  continuity  equation  requires  two  boundary  conditions  on 
temperature  due  to  a  second  order  spacial  derivative  of  temperature. 

The  above  seven  boundary  conditions  are  defined  in  conjunction  with 
the  particular  application  of  the  mathematical  model.  Table  3.1  presents 
four  possible  boundary  condition  systems  which  are  considered  most  rele¬ 
vant  to  this  study.  In  particular,  for  a  second  breakdown  simulation  it 
is  desirable  to  drive  the  diode  under  study  with  a  current  source.  This 
condition  most  accurately  simulates  the  optimal  experimental  configura¬ 
tion  [9]  for  investigating  this  phenomenon,  and  readily  facilitates  the 
comparison  of  the  numerical  simulation  with  experimental  data.  For  a 
current  source  driving  function  the  boundary  conditions  are  defined  by: 


p(0,t)  =  fp0[Jp(0,t),  Jn(0,t)] 


(3.20) 


n(°,t)  =  fnQ[Jp(0,t),  Jn(0,t)] 


(3.21) 


p(Vt}  =  WV^’  Jn(V01 


(3.22) 


n(xL,t)  -  fnL[Jp(xL,t) ,  J^x^t)] 


> 


(3.23) 


and  either 


E(0,t)  =  fEQ[Jp(0,t),  Jn(0,t)] 


(3.24) 


or 


E(xL,t)  =  fEL[Jp(xL,t)  ,  J^x^t)]  .  (3.25) 


The  four  boundary  system  cases  presented  in  Table  3,1  along  with 
equations  (3.9)  and  (3.10)  permit  evaluation  of  the  above  relations. 


TABLE  3.1 


BOUNDARY  CONDITION  SYSTEMS 


Boundary  Condition 

Systems 

Type 

Boundary 

Condition 

Technique  for 
Incorporating 
Driving  Function 

p-side 

contact 

n-side 

contact 

c 

Current 

JT(t) 

Voltage 

vD(t) 

i) 

J  =  JT(t) 

P  1 

J  =  0 
p 

Current 

Direct 

Iterative 

J  =  0 
n 

Jn  -  JTCt) 

E  =  0 

(or,  E  =  0) 

T  =  To 

T  =  T0 

2) 

p  =  p 

P° 

P  =  P 

r  rno 

Ohmic 

Indirect 

Iterative 

n  =  n 

po 

n  =  n 

no 

E  =  E(t) 

(or,  E  =  E (t) 

T  =  T0 

T  -  T0 

3) 

Jp  -  JT(t> 

p  =  p 

r  rno 

Hybrid 

Direct 

Iterative 

J  -  0 
n 

n  =  n 

no 

E  =  0 

T  =  T0 

T  =  To 

4) 

ll 

T3 

TJ 

O 

J  =  0 

P 

Hybrid 

Direct 

Iterative 

n  =  n 

po 

Jn  ’  JT(t) 

E  =  0 

T  =  To 

T  =  To 
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Note  that  the  mathematical  model  developed  here  does  not  readily 
facilitate  the  specification  of  a  voltage  source  driving  function.  To 
implement  this  case  with  the  present  formulation  would  require  an  iter¬ 
ative  procedure  on  the  electric  field  boundary  value  at  each  time  step 
and  would  be  quite  inefficient  with  respect  to  computation  time.  This 
situation  could  be  circumvented  by  reformulating  the  mathematical  model 
in  terms  of  voltage  rather  than  electric  field  as  a  dependent  variable. 

3.1.4.  Carrier  Generation-Recombination  Expressions 

Carrier  generation  and  recombination  consist  of  thermal 
generation  and  recombination  through  defect  centers  and  impact  or  ava¬ 
lanche  ionization. 

Thermal  generation  and  recombination  through  defect  centers  are  rep¬ 
resented  by  the  Shockley-Read-Hall  single-level  model,  equation  (3.11). 
This  model  characterizes  defects  with  neutral  and  single-charge  states. 

Hole  and  electron  generation  through  avalanche  ionization  is  also 
included  in  equation  (3.11).  The  ionization  coefficients  in  this  rela¬ 
tion  are  strongly  dependent  upon  the  electric  field  and  to  a  lesser  ex¬ 
tent  temperature.  This  behavior  is  given  by 


-b  /E 

a  (E,T)  =  a  [1  -  e(T-TQ)]  e  p  ,  (3.26) 


and 


-b  /E 

a  (E,T)  =  a  [1  -  6(T-T  )]  e  n  (3.27) 

n  n  o' 


where  for  silicon 


a  =  3.8  x  10^  cm  ■*",  b  =  1.75  x  10^  V  cm  \  a  =  2.25  x  10  ^  cm 
P  P  n 


b  =  3.26  x  106  V  cm' 
n 


and  T  =  300°  K 
o 


(3.28) 
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The  above  description  of  the  ionization  coeficients  was  derived 
from  Sze’s  [10]  characterization  of  these  coefficients  and  represents 
an  empirical  approximation  of  their  thermal  dependence.  The  ionization 
thermal  coefficient  3  has  units  of  (1/K°)  and  specifies  a  linear  depen¬ 
dence  on  temperature.  3  is  assigned  a  value  of  10  4  and  may  be  increased 
slightly  to  enhance  the  thermal  dependence  of  the  ionization  coefficients. 
It  should  be  emphasized  that  although  this  formulation  for  the  thermal 
dependence  of  the  ionization  coefficients  is  not  completely  accurate,  it 
does  exhibit  a  reasonably  good  description  of  the  thermal  behavior  of  the 
coefficients.  Moreover,  this  formulation,;  is  concise  and  readily  imple¬ 
mented  numerically.  The  electric  field  dependence  of  the  hole  and  electron 
ionization  coefficients  as  predicted  by  equations  (3,26)  and  (3.27)  is 
shown  in  Fig.  3.2. 


3.1.5  Mobility  Coefficient  Formulation 

The  second  breakdown  phenomenon  is  generally  character¬ 
ized  by  large  abrupt  changes  in  electric  field  and  temperature.  Further¬ 
more,  most  diode  sturctures  of  interest  in  this  area  feature  asymmetric 
impurity  profiles.  Since  mobility  is  a  rather  sensitive  function  of 
impurity  concentration,  electric  field  and  temperature  it  is  necessary 
that  the  mobility  coefficients  be  formulated  in  terms  of  these  quantities. 
A  thermally  independent  approximation  of  theoretical  mobility  [4]  as  a 
function  of  net  doping  density  Nj  and  electric  field  is  given  by 


NI  (E/A)2  ,  ,Ev 2. 
y(NI,E)  =  yQ  [1  +  n^/s+n  +  E/A+F  VB) 


(3.29) 


where 


Holes 

Electrons 


N 


480  4x10 
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1400  3xl016  350  3 . 5x10 J  8.8  7.4x10' 


B 


81  6.1xl0J  1.6  2.5x10 


(3.30) 


In  actual  practice  the  temperature  variation  of  mobilities  can  usu¬ 
ally  be  described  by  a  power  law  [9],  such  as 


U 


(3.31) 


where  for  silicon  y  has  been  determined  experimentally  to  be  approxi¬ 
mately  equal  to  5/2  for  both  holes  and  electrons.  Then  with  this  result 
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mobility  thermal  dependence  can  be  conveniently  added  to  equation  (3.29) 
to  yield 


p(N;[,E,T)  =  T_5/2  yCN^E). 


(3.32) 


The  mobility  behavior  predicted  by  (3,32)  is  presented  in  Figs,  3.3 
through  3,6.  <• 


3.1.6  Semiconductor  Resistivity 


The  thermal  behavior  of  semiconductor  resistivity  is 


critical  to  some  aspects  of  thermal  second  breakdown  theory.  For  this 
reason  the  thermal  dependence  of  resistivity  for  the  diode  model  is 
characterized. 

Assuming  thermal  equilibrium  conditons  and  fully  ionized  impurities, 
semiconductor  resistivity  as  a  function  of  net  impurity  concentration, 
electric  field,  and  temperature  is  given  by 


1 


(3.33) 


PS(NI,T,E)  = 


where 
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ELECTRIC  FIELD  v/cm 

Fig.  3.4.  Hole  Mobility  Versus  Electric  Field  for  Different  Impurity  Levels 


Q 

<S> 

<S> 

<5> 

<s> 

O 

<S> 

o 

<s> 

<s> 

LO 

cn 

OJ 

oas-A/  tno  uniaOH  3T0H 
6 


22 


200  400  600  800  1000  1200  1400 

TEMPERATURE  °K 

Fig.  3.5.  Hole  Mobility  Versus  Temperature  for  Different  Impurity  Levels 
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TEMPERATURE  °K 

Fig.  3.6.  Electron  Mobility  Versus  Temperature  for  Different  Impurity  Levels 


The  mobilities  are  defined  through  equation  (3.32)  and  the  intrinsic 
carrier  concentration  by  equation  (3.15).  The  resistivity  predicted 
by  equation  (3.33)  is  shown  in  Fig.  3.7  as  a  function  of  temperature 
for  several  different  impurity  levels. 

Failure  of  these  curves  to  converge  smoothly  for  high  temperature 
values  is  attributed  to  the  approximate  and  equal  values  assigned  to 
Y  in  the  power  law  description,  equation  (3.31),  of  the  hole  and  elec¬ 
tron  mobility  thermal  dependence.  Better,  estimates,  and  not  necessarily 
equal  estimates,  of  y  should  yield  a  corresponding  improvement  in  the 
resistivity  thermal  behavior.  However,  for  the  purposes  of  this  work 
the  previously  formulated  mobility  relations  are  employed. 

3.1.7  Normalization  of  Mathematical  Model 

It  is  most  convenient  to  normalize  the  system  of  equa¬ 
tions  composing  the  mathematical  model  for  the  purpose  of  simplicity 
during  further  mathematical  manipulations  and  to  reduce  the  number  of 
algebraic  operations  required  by  the  subsequent  numerical  solution 
procedure.  Development  of  the  normalization  factors  follows  De  Mari 
[12]  except  for  the  sign  associated  with  the  current  normalization 
factor  and  the  addition  of  several  normalization  factors  pertaining  to 
the  energy  continuity  equation  and  the  avalanche  ionization  relation 
for  carrier  generation. 

De  Mari  elected  to  negate  the  current  normalization  factor  such  as 
to  yield  a  positive  current  under  forward  bias  for  his  model  configuration. 
In  this  work  the  current  normalization  factors  are  maintained  positive, 
thereby,  allowing  the  signs  associated  with  the  current  components  to  be 
determined  in  the  conventional  manner. 

A  temperature  normalization  constant  is  added  to  account  for  the 
addition  of  temperature  as  a  dependent  variable.  In  addition,  normal¬ 
ization  factors  are  defined  for  the  semiconductor  thermal  conductivity, 
specific  heat,  density,  the  substrate  thermal  conductivity,  and  the 
ionization  coefficients.  The  subsequent  normalization  factors  are 
listed  in  Table  3.2.  The  same  symbols  previously  used  for  unnormalized 
variables  will  also  be  used  for  the  normalized  ones.  For  the  remainder 
of  this  work  all  symbols  will  consistently  represent  normalized  values 
unless  stated  otherwise. 


Using  the  normalization  constants  in  Table  3.2.,  the  normalized,  or 
dimensionless  form  of  the  mathematical  model  becomes: 


3p(x,t) 

at 


(x,t) 


a  Jp(x,t) 

8x 


(3.34) 
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Fig.  3.7.  Semiconductor  Resistivity  Versus  Temperature  for  Different  Impurity  Levels 


TABLE  3.2 

LIST  OF  NORMALIZATION  FACTORS  FOR  DIODE  MODEL  PARAMETERS  AND  VARIABLES 
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(3.35) 


3n(x ,t) 

3t 


G 

gr 


(x,t) 


+ 


9  Jn(x,t) 
9x 


» 


3E(x,t) 

3x 


P(x,t)  -  n(x,t)  +  Nd(x)  -  Na(x) 


(3.36) 


and 


(3.37) 


where 


Jp(x,t)  =  Pp(x,t)  [p(x,t)  E(x,t)  -  T(x,t)  Mx»t}]  , 


(3.38) 


J„(x,t)  =  Mn(x,t)  [n(x,t)  E(x,t)  +  T(x,t)  |"(-X>t)]  , 

(3.39) 


G 

gr 


(x 


,t)  = 


2 

n±(x,t)  -  p(x,t)n(x,t) 

[p(x,t)+ni(x,t)]  xn  +  [n(x,t)+n1(x,t)]xp  +  ap^x,t^  I  Jp^x,t^  I 


+  an(x,t) | Jn(x,t) |  , 


(3.40) 


^(x.t) 

<Kx,t)  =  |E(x,t)|  [  |  J  (x,t)|  +  |J  (x,t)|]  -  [T(x,t)  -  T  ], 

P  ^T^DH  ° 

(3.41) 


JT(t)  =  Jp(x,t)  +  Jn(x,t)  +  ^(x»fc^  , 


(3.42) 
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E(x,t) 


(3.43) 


_  8V(x,t) 
3x 


n.(x,t) 


.  -q  E  /[2KT(x,t)] 
8  T(x,t )iU  e  8 


(3.44) 


Dp(x,t)  =  yp(x,t)  T(x,t)  , 


and 

D  (x,t)  =  y  (x,t)  T(x,t)  .  0.46) 

n  n 

3,2  Numerical  Model 

In  this  section  a  numerical  solution  for  the  mathematical 
diode  model  developed  in  the  previous  section  is  formulated.  Finite 
difference  techniques  are  used  to  discretize  the  system  of  equations  and 
the  generalized  Crank-Nicholson  implicit  formulation  is  employed  to  improve 
numerical  stability  and  accuracy,  A  further  improvement  in  numerical 
stability  is  achieved  through  the  use  of  current  approximations,  accord¬ 
ing  to  Scharfetter  and  Gummel  [4],  which  facilitates  a  coarse  spacial 
grid.  The  resulting  model  Is  characterized  by  a  banded  system  of  linear 
simultaneous  equations  which  are  solved  for  each  incremental  advancement 
in  time  during  a  simulation.  The  model  is  equally  applicable  to  steady 
state  generation  through  accelerated  pseudo  transients. 

3.2.1  Designation  of  Spacial  Grid  and  Model  Geometry 

Before  casting  the  four  fundamental  equations  of  the 
mathematical  model,  (3.34)  through  (3.37),  in  terms  of  standard  finite 
difference  techniques  a  spacial  grid  must  first  be  designated.  Figure 
3.8  shows  the  grid  structure  to  be  used  and  one  which  has  demonstrated 
utility  for  similar  mathematical  models  through  numerious  applications 
[4,5,12].  The  continuity  equations  and  the  Poisson  equation  are  formu¬ 
lated  about  the  N-nodes  and  thus  associate  the  concentration  variables 
with  these  nodes  and  the  electric  field  with  the  M-nodes.  The  current 
terms  are  assigned  to  the  M-nodes  to  facilitate  the  current  derivative 
formulation  in  the  continuity  equations.  Since  the  energy  continuity 
equation  requires  values  for  the  hole  and  electron  currents,  and  the 
electric  field,  this  equation  is  written  about  the  M-node  and  assigns 
temperature  to  these  nodes. 
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Fig.  3.8.  (a)  Numerical  Diode  Model  Spacial  Grid,  (b)  Physical  Design  and  (c)  External  Circuit  Configuration 


The  physical  design  of  the  diode  model  and  the  orientation  of 
pertinent  axes  are  superimposed  on  the  spacial  grid  in  Fig.  3.8.  These 
conventions  will  be  used  throughout  the  remainder  of  this  work.  The  np 
spacial  configuration  shown  was  adapted  for  the  diode  model,  in  lieu  of 
an  optional  junction  orientation,  to  minimize  the  model  complexity. 

Model  generality  is  maintained  through  symmetric  current  boundary  con¬ 
ditions 

3.2.2  Finite  Difference  Formulation  of  the  Mathematical  Model 

The  four  fundamental  equations  which  compose  the  diode 
model  are  discretized  through  finite  difference  techniques  [13]  in  con¬ 
junction  with  the  spacial  grid  defined  in  the  previous  section.  The 
unknowns  in  this  formulation  are  the  incremental  changes  in  the  dependent 
variables  values  Ap,  An,  AE,  and  AT  over  the  respective  time  step. 
First  consider  the  two  continuity  equations  (3.34)  and  (3.35)  which  can 
be  written  directly  in  a  finite  difference  form  as 


AP(N) 

At 


Ggr(N,t) 


J  (M,t)  -  J  (M-l,t) 
_E _ 2 - 

Ax(N) 


(3.47) 


and 


An (N)  _ 
At 


G  (N  ,t) 
gr 


J  (M,t)  -  J  (M-l ,t) 
n _ n _ _ 

Ax(N) 


(3.48) 


Next  the  Poisson  equation  is  discretized  and  written  in  terms  of 
the  unknown  variable  values  at  the  next  point  in  time  as 


fE(M.t)  +  AE  (M,t)  ]  -  [E(M-l,t)  +  AE(M-l,t)J.  =  [p(N>t)  +  Ap(N,t)] 

Ax(N) 


-  [n(N  ,t)  +  An (N  ,t)  ]  +  N^N)  .  (3.49) 

Discretization  of  the  energy  continuity  equation  (3.37)  through 
finite  difference  techniques  is  hampered  by  the  nonlinear  form  of  the 
second-order  spacial  derivative  in  this  equation.  However,  this  dif¬ 
ficulty  is  overcome  if  rather  than  attempting  to  discretize  equation 
(3.37)  directly,  the  energy  continuity  equation  is  rederived  in  the 
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finite  difference  form  [ 14 ] .  Consider  first  the  definition  of  the 
energy  continuity  equation  which  may  be  written  as 


Rate  of  energy 

Rate  of  heat  entering 

Rate  of  heat 

storage  in  V 

V  through  its  boundary 
surfaces 

+ 

generation  in 

V 

(3.50) 


Employing  similar  procedure  as  was  used  to  derive  the  net  power  density 
factor,  equation  (3.2),  the  energy  continuity  equation,  in  finite  dif¬ 
ference  form  becomes 


AT (M)  =  VM,t)  T(M,t)  -  T (M-l, t) 

At  pcAx(M)  Ax(N) 

KD(M,t)  T(M+.itt)-x(M,t)  _  T(M,t>  T°. 

+  pcAx(M)  Ax(N+l)  xnrPC  *HT 

+  —  | E (M, t) |  [|j  (M,t)|  +  |Jn(M,t)|]  .  (3.51) 

pc  p 


By  comparing  equation  (3.51)  with  equation  (3.37)  it  is  apparent 
that  the  above  discretization  procedure  changed  only  the  equivalent 
finite  difference  form  of  the  nonlinear  second-order  spacial  derivative 
term  in  equation  (3.37).  This  alternate  discretization  procedure  also 
maintains  the  generality  of  the  spacial  grid  in  that  it  does  not  restrict 
the  model  to  a  uniform  spacial  grid.  The  nonuniform  spacial  grid  feature 
for  a  reverse  bias  diode  simulation  is  quite  desirable  in  view  of  the 
potentially  dynamic  spacial  behavior  for  this  type  simulation. 

For  the  formulation  of  the  numerical  model  the  thermal  conductivity 
for  the  semiconductor  material  and  the  thermal  conductivity  for  the  sub¬ 
strate  material  are  assumed  constant.  This  assumption  is  made  to  simplify 
the  implementation  of  the  numerical  model  and  not  as  a  consequence  of  any 
limitations  associated  with  the  numerical  technique  employed.  The  compu¬ 
ter  program  version  of  the  numerical  model  will  accept  modifications  to 
restore  these  coefficients  to  a  variable  status  dependent  upon  both 
position  and  time. 
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The  resulting  discretized  version  of  the  four  fundamental  equations 
are  summarized  in  functional  form  as: 


Vp.(Nit) 

Vt 


Fp[p(N-l,t)  ,n(N-l,t),E(M-l,t),T(M-l,t)  ,p(N,t)  ,n(N,t)  ,E(M,t)  , 
T (M, t) ,p (N+l, t) ,n(N+l, t) ]  ,  (3.52) 


Vn(N.t) 

Vt 


Fn[p(N-l,t)  ,n(N-l,t)  ,E(M-l,t)  ,T(M-l,t)  ,p(N,  t)  ,n(N,t)  ,E(M,t)  , 


T(M,t) ,p(N+l,t)n(N+l,t) ]  ,  (3.53) 

-  AE(M-l,t)  -  Ax(N)  Ap(N,t)  +  Ax(N)  An(N,t)  +  AE(M,t)  = 


FE[E(M-l,t)  ,p(N,t)  ,n(N,t),E(M,t)]  ,  (3.54) 


and 


AT(M.t) 

At 


=  FT[T(M-l,t)  ,p(N,t)  ,n(N,t)  ,E(M,t)  ,T(M,t)  ,p(N+l,t)  , 


n(N+l,t)  ,T(HH,t)] 


(3.55) 


where  the  unknown  variable  values  at  the  next  point  in  time  are  given 
by 


p(N,t  +  At)  =  p(N,t)  +  Ap(N,t)  ,  (3.56) 


n(N,t  +  At)  =  n(N,t)  +  An(N,t)  ,  (3.57) 
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E(M,t  +  At)  =  E(M,t)  +  AE(M,t)  ,  (3.58) 

and 

T(M,t  +  At)  =  T(M,t)  +  AT(M,t)  .  (3.59) 


3.2.3  Generalized  Crank-Nicolson  Formulation 

The  discretized  equations  (3.47)  through  (3.51)  represent 
an  explicit  formulation  of  the  diode  model.  This  type  of  finite  differ¬ 
ence  formulation  is  characterized  by  stability  limitations  [ 15 ]  which 
restrict  the  size  of  time  step  At  for  a  given  value  of  Ax,  i.e.,  if  the 
space  step  Ax  is  to  be  chosen  small  to  improve  accuracy  and  the  simulation 
performed  over  a  large  period  of  time,  the  computational  load  becomes 
prohibitive.  Fortunately,  an  alternative  formulation,  the  generalized 
Crank-Nicolson  implicit  technique  [16  ] ,  alleviates  this  problem  at  the 
expense  of  a  modest  increase  in  the  computational  load.  Unlike  the  ex¬ 
plicit  formulation  which  features  a  straight  forward  evaluation  of  the 
variable  values  for  the  next  point  in  time,  the  implicit  technique  requires 
a  simultaneous  solution  for  all  variable  values.  However,  this  increased 
complexity  is  more  than  compensated  for  through  improved  stability  which 
allows  for  greatly  increased  time  step  increments  and  a  reduced  trunca¬ 
tion  error. 

The  Generalized  Crank-Nicolson  technique  employs  a  weighted  average 
between  the  respective  values,  at  times  t  and  t+At,  for  the  functional 
terms  in  equations  (3.52)  through  (3.55).  Upon  applying  this  technique, 
the  finite  difference  form  for  the  diode  model  becomes 


AP(N>^  =  (1  -  9)  F  (N,t)  +  6  F  (N,t  +  At)  ,  (3.60) 

At  p  p 


A-(N  >-£l  =  (1  -  e)  F  (N,t)  +  0  F  (N,t  +  At)  ,  (3.61) 

At  n  n 


-  AE (M-l  ,t)  -  Ax (N)Ap (N,t)  +  Ax(N)An(N,t)  +  AE(M,t)  =  F^ (M,t)  , 

(3.62) 
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and 


AT(M.t£l  =  (!  -  0)  F  (M,t)  +  0  F  (H , t  +  At)  (3.63) 

At  r  i 


where  0  <  6  <  1.  For  0  =0,  the  above  equations  revert  to  the 
explicit^orm- with  inherent  instability,  and  for  0  =  1,  a  purely 

implicit  formulation  results  which  exhibits  a  considerably  improved 
stability.  A  balance  between  optimum  stability  and  a  low  truncation 
error  is  usually  achieved  by  0  =  0.5. 

Note  that  the  Poisson  equation  (3.62),  having  been  previously  writ¬ 
ten  in  terms  of  the  unknown  variable  values  at  the  next  point  in  time, 
is  omitted  from  the  above  transition  and  retains  the  same  form  as  equation 
(3.54). 


3.2.4  Linearization  of  the  Numerical  Model 

The  functional  terms  evaluated  at  t+  At  in  the  implicit 
diode  model,  equations  (3.60)  through  (3.63),  contain  unknown  dependent 
variable  values  that  in  some  cases  appear  in  nonlinear  form.  The  linear 
occurrences  of  these  values  are  written  directly  in  terms  of  the  system 
unknowns,  or  incremental  changes  in  the  dependent  variables  across  the 
respective  time  step,  by  equations  (3.56)  through  (3.59),  On  the  other 
hand,  the  nonlinearities  are  resolved  through  first  order  Taylor  series 
expansions  in  the  respective  dependent  variable  values. 

Applying  this  procedure  to  the  hole  continuity  equation  (3.60) 
yields  the  following  linear  version 


^■(N?t)  =  (1  -  6)  Fp(N,t)  +  9  {F  (N,t)  +  Ap(N-l ,t) 


3  Fp(N,t) 

3  p(N-l,t) 


I  + 


3  F  (N,t) 

AE(M-1>t)  y~E(M-i,t)  lt  +  —  >  * 


(3.64) 


which  can  be  reduced  directly  to  the  simpler  form 
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(3.65) 


MfjEl  -  f  Fp(N,t)  +  Ap(N-l,t) 


3  Fp(N,t) 

3  p(N-l ,t) 


I  + 


3  F  (N,t) 

AE(M-l,t)  3  E^M-1  ,t)  ^  t  + 

Using  this  procedure  to  linearize  the  two  additional  equations  (3.61) 
and  (3.63),  the  final  form  of  the  system  of  equations  for  the  numerical 
diode  model  can  be  summarized  as: 


1 

0At 


Ap(N,t) 


F  (N,t)  +  Ap(N-l,t) 

t)  P 


3  Fp(N,t) 

3  p  (N-l  ,t) 


+ 


t 


9 


(3.66) 


1 

0At 


An  (N  ,t) 


3  F  (N,t) 

IrnW,t)  +  AnCN-l >t)  a  ,^1.0 


+ 


t 


> 


C3.67) 


-  AE (M- 1 , t )  -  Ax(N)Ap (N,t)  +  Ax(N)An(N,t)  +  AE(M,t)  =  FgCM.t)  , 

C3.68) 

and 


0At  AT(M’fc> 


1  9  FT(M,t) 

0  FT(M,t)  +  AT (M-l ,t)  j T(M_1>t) 


I  + 


(3.69) 


Or,  in  matrix  form  as: 


1  1 

Hal 

1 

j  0At 

I 

n  J 

► 

=  — 

0 

Fi 

L 

• 

V. 


(3.70) 
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Fig.  3.9  shows  the  detailed  structure  of  the  above  coefficient 
matrix  and  demonstrates  the  banded  form  of  this  system  of  linear  equa¬ 
tions,  Formulation  for  the  required  coefficients  is  presented  in 
Appendix  A. 

3.2.5  Current  Approximations 

Normally  the  hole  and  electron  current  density  components 
would  be  evaluated  from  finite  difference  forms  of  the  current  density 
equations  (3,38)  and  (3,39),  These  relations,  however,  exhibit  instab¬ 
ility  under  low  current  conditions  when  the  voltage  drop  between  adjacent 
nodes  is  equal  to  or  in  excess  of  2KT/q  [6],  For  most  simulations,  and 
especially  reverse  bias,  an  excessive  number  of  grid  points  are  required 
to  overcome  this  instability. 

An  improved  finite  difference  approximation  [4]  can  be  obtained  by 
considering  the  current  density  expressions  as  differential  equations  in 
p (x)  and  n(x)  and  integrating  them  between  adjacent  node  points.  This 
is  achieved  for  the  hole  current  density  equation  (3.38)  by  assuming  the 
mobility,  current  densities,  temperature,  and  electric  field  between  the 
N-node  points  constant  and  rewriting  equation  (3.38)  as 


3p(x,t)  E(M,t)p(x,t)  _  Jp^M,t^ 

3x  "  T(M,t)  ”  p  (M,t)T(M,t)  * 


(3.71) 


and  integrating  between  consecutive  N-nodes  to  yield 


N+l 


f  - 

J  9x 


 E(Mtt). 

*  [p(x,t)  e  ]  dx  = 


N+l 


-  / 


T  /M  M  E(M,t) 


N 


N 


yp(M,t)T(M,t) 


dx  , 


(3.72) 


where 


J  (M,t)  =  yp(M ,t)E(M,t) 


P(N+l.».tl 


Ax  (M)E  (M  ,t) 


,  P(N,t) 


_  Ax (M)E(M.t) 

[1  -  e  T(M»t)  ]  [1  -  e  T(M,t^  ] 

(3.73)“ 
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Through  a  similar  procedure  the  electron  current  becomes: 


J  (M,t)  =  y  (M,t)E(M,t) 
n  n 


n(nf  1  ,t) 


 Ax(M)E(M,t) 


+  n(Ntt) 


Ax  (M)E(M.t) 

[1  -  e  T«.t)  ]  u-e  T(M,t)  j 


(3.74) 


These  equations  provide  numerically  stable  estimates  of  current 
density  under  all  conditions.  If  the  term  Ax(M)E(M,t)/T(M,t)  is  small, 
these  equations  approach  the  standard  difference  form  of  the  diffusion 
current,  whereas,  when  it  is  large,  they  approach  the  drift  current  den¬ 
sity.  Numerically,  however,  these  expressions  are  difficult  to  evaluate 
for  very  low  electric  field  values.  Under  these  conditions  the  respective 
Taylor  series  expansions  of  these  relations  are  used  and  are  as  follows: 


V  (M,t)T(M,t) 

Jp(M,t)  =  '  E  Ax(M) -  [g  +  h  P(N.t)],  (3.75) 


and 


Jn(M,t) 


yn(M,t)T(M,t) 

Ax(M) 


[h  n(N+l,t)  +  g  n(N  ,t) ] 


(3.76) 


where 


X  =  Ax(H)E(M,t)/T(M,t)  , 


(3.77) 


g 


(3.78) 


BOUNDARY  VALUES 


o 
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Fig.  3.9.  Coefficient  Matrix  for  Equation  (3.70) 


and 


(3.79) 


3.2.6  Finite  Difference  Formulation  of  Boundary  Conditions 

Of  the  four  boundary  conditon  systems  shown  in  Table  3.1 
only  the  two  hybrid  cases  can  be  implemented  directly  for  a  current  driving 
function.  For  these  cases  the  carrier  concentration  values  at  one  contact 
are  set  equal  to  their  thermal  equilibrium  values;  thus  simulating  an 
ohmic  contact.  At  the  opposite  contact  a  current  boundary  condition  is 
specified  and  the  electric  field  is  set  equal  to  zero,  i.e.,  the  currents 
at  this  contact  are  restricted  to  diffusion  currents.  Then  since  the 
minority  carrier  current  is  assigned  a  value  of  zero  at  this  contact,  the 
minority  carrier  concentration  gradient  must  be  equal  to  zero.  The  cur¬ 
rent  driving  function  is  incorporated  by  specifying  the  contact  majority 
carrier  concentration  through  the  finite  difference  relation  for  the 
majority  carrier  diffusion  current  which  is  equal  to  the  total  current. 

The  current  boundary  condition  system,  which  features  current  bound¬ 
ary  conditions  at  both  contacts,  is  formulated  similarly  to  the  single 
current  boundary  condition  for  the  hybrid  system  described  above.  In 
this  case,  however,  electric  fields  at  both  contacts  are  assumed  zero. 

Since  only  one  boundary  condition  is  allowed  for  the  electric  field,  one 
contact  features  an  implicit  specification  of  the  electric  field.  The 
validity  of  this  condition  is  most  easily  assessed  by  monitoring  the 
electric  field  value  at  this  contact  during  simulations;  large  deviations 
from  zero  would  indicate  difficulties. 

The  ohmic  boundary  condition  system  is  the  most  difficult  of  the 
three  systems  to  implement  for  a  current  driving  function.  For  this 
system  the  carrier  concentrations  at  both  contacts  are  assigned  their 
thermal  equilibrium  values.  The  difficulty  arises  in  calculating  the 
electric  field  boundary  condition  which  will  yield  the  specified  total 
current.  This  procedure  requires  the  solving  of  a  transendental  equation 
at  each  time  step,  since  the  current  approximations  are  nonlinear  functions 
of  electric  field. 

As  a  consequence  of  the  additional  complexity  associated  with  the 
formulation  of  the  ohmic  boundary  condition  system,  it  is  not  included 
in  the  computer  program  implementation  of  the  numerical  model.  The 
hybrid  and  current  boundary  condition  systems  are  incorporated  directly 
in  the  program  on  an  optional  and  default  bases  respectively.  Further¬ 
more,  since  the  numerical  model  is  formulated  in  terms  of  incremental 
changes  in  the  dependent  variables,  the  boundary  conditons  must  also 
be  formulated  in  this  manner  according  to  equations  (3.56)  through  (3.59). 
Then  a  constant  boundary  value  for  a  dependent  variable  translates  to  a 
zero  incremental  value  for  the  corresponding  system  unknown  and  the 
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specification  of  a  zero  gradient  boundary  condition  requires  the  appro¬ 
priate  change  in  the  respective  boundary  value  to  perpetuate  this 
condition.  Moreover,  a  time  dependent  boundary  value,  such  as  is  required 
to  implement  a  driving  function,  must  be  formulated  in  terms  of  a  time 
dependent  incremental  boundary  value. 

The  expressions  required  for  evaluation  of  the  contact  incremental 
carrier  concentration  values  for  the  above  described  current  boundary 
conditions  and  for  the  np  junction  configuration  adopted  for  the  numer¬ 
ical  model  are  as  follows:  1 

x  =  0: 


Vp(l,t)  -  Vp(2,t)  +  p(2,t)  -  p(l,t)  , 


V1) 

Yn(l,t)  =  Vn(2,t)  +  [n(2,t)  -  n(l,t)  -  -  (1>t)f(i>t) 


(3.80) 

JT(t)J 


(3.81) 


x  =  V 

Ax^P-1)  ^  ^  i 

Ap(P,t)  =  Ap(P-l,t)  +  [p(P"l,t)  -  p(P,t)  -  (p_i>t)T(P-l,T)'  JT(t)]  » 

P 

(3.82) 


and 


An(P,t)  =  An  (P-1, t)  +  n(P-l,t)  -  n(P,t) 


(3.83) 


3.2.7  Solution  Procedure 

A  flow  chart  for  the  general  solution  procedure  of  the 
numerical  diode  model  developed  in  this  chapter  is  shown  in  Fig.  3.10. 
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Fig.  3.10.  Solution  Procedure  Flow  Chart 
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Initially  the  diode  design  parameters  and  the  simulation  control  parame¬ 
ters  must  be  specified  to  define  the  simulation.  From  this  data  dependent 
variable  profiles  are  then  generated  for  initial  conditions;  unless 
appropriate  profiles  are  available  from  a  previous  run.  With  the  initial 
conditions  established,  the  time-step  loop  is  entered  wherein  each  cycle 
moves  the  simulation  through  time  by  one  time  increment.  These  discrete 
advancements  in  time  are  made  by  solving  the  matrix  equation  (3.70)  which 
completely  describes  the  diode  behavior  over  each  time  step.  Once  the 
time  step  loop  has  been  cycled  through  a  sufficient  number  of  times  to 
complete  the  simulation,  the  resulting  dipde  state  is  stored  for  potential 
use  as  an  initial  state  for  a  subsequent  simulation. 

Appendix  B  presents  a  detailed  account  of  the  computer  programs 
used  to  implement  the  numerical  diode  model  formulated. 
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4.  RESULTS  AND  CONCLUSIONS 


Thermal  second  breakdown  is  simulated  using  the  previously 
developed  numerical  diode  model.  The  subsequent  diode  behavior  is 
described  and  conclusions  are  drawn  with  respect  to  the  physics  of 
thermal  second  breakdown.  Finally,  recommendations  for  further  study 
are  presented. 


4.1  Simulation  of  Thermal  Second  Breakdown 

I. 

The  computer  program  version  of  the  numerical  diode  model 
developed  in  Section  3  is  used  to  simulate  thermal  second  breakdown.  The 
simulation  parameters  and  diode  design  for  this  simulation  are  summarized 
in  Table  4.1.  An  abrupt  impurity  profile  is  specified  with  a  donor  con¬ 
centration  of  10  1  7  and  an  acceptor  concentration  of  1016.  The  junction 
is  located  3  ym  from  the  n-side  contact  and  the  diode  length  is  10  ym. 
Although  a  more  asymmetric  impurity  profile  and  a  longer  diode  structure 
are  desirable,  the  above  values  are  chosen  as  a  consequence  of  the  uniform 
spacial  grid  restriction  for  the  present  version  of  the  computer  model. 
Under  this  restriction  increases  in  diode  length  are  accompanied  by  a 
uniform  decrease  in  the  spacial  grid  resolution  since  the  number  of  grid 
points  is  limited  to  101  or  less.  The  10  ym  diode  length  is  chosen  to 
insure  that  several  grid  points  fall  within  the  depletion  region  on  the 
high  doped  side  of  the  junction.  On  the  other  hand,  the  relatively  short 
bulk  regions  for  this  diode  design  make  the  diode  model  quite  sensitive 
to  mobile  space  charge  induced  depletion  region  widening  that  occurs 
under  high  current  conditions.  If  one  of  the  depletion  regions  spans  the 
respective  bulk  region  the  validity  of  the  diode  model  is  destroyed.  The 
high  temperatures  associated  with  the  thermal  second  breakdown  require 
large  power  densities,  and  thus,  high  current  densities  which  result  in 
significant  depletion  region  widening.  This  condition,  however,  is 
avoided  by  maintaining  a  reasonably  high  impurity  concentration  on  the 
low  doped  side  of  the  junction  and  by  assigning  an  artificially  low  value 
to  the  semiconductor  and  substrate  thermal  conductivities.  The  decreased 
values  for  thermal  conductivity  permit  the  simulation  to  develop  signi¬ 
ficant  thermal  effects  at  considerably  reduced  current  densities.  In 
essence,  the  temporal  validity  of  the  simulation  is  compromised  in  order 
to  achieve  the  thermal  conditions  required  to  initiate  and  support  thermal 
second  breakdown. 

The  circuit  configuration  and  sign  conventions  for  the  simulation 
are  shown  in  Fig.  3.8.  The  simulation  is  performed  in  the  reverse  bias 
mode  and  is  driven  by  a  constant  current  source.  Initially  the  diode 
model  is  in  a  steady  state  mode  corresponding  to  a  reverse  bias  current 
of  10-4amps/cm  2.  The  simulation  is  initiated  by  instantaneously  in¬ 
creasing  the  reverse  bias  current  to  10  amps/cm2.  Accordingly,  the  diode 
model  undergoes  a  dynamic  transient  and  terminates  in  a  post  second 
breakdown  state. 
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TABLE  4.1 


DIODE  DESIGN  AND  SIMULATION  PARAMETERS  FOR 
THE  THERMAL  SECOND  BREAKDOWN  SIMULATION 


Material 

Silicon 

Number  of  Spacial  Grid  Points 

101 

Substrate  Temperature 

300°  K 

Type  Junction 

Abrupt 

Dimensions 

Total  length  -  10  ym 

Junction  depth  -  3.0  ym 
Semiconductor  width  -  0.1  ym 
Semiconductor  thickness  -  0.1  ym 
Substrate  thickness  -  1.0  ym 

Doping  Profile 

,  nnl 7  -3 

Donor  concentration  -  10  cm 

4  in16  "3 

Acceptor  concentration  -  10  cm 

Lifetime 

T  =  X  =  1.0  X  10-9 
p  n 

Ionization  Temperature  Coefficient 

2.5  x  10~3  1/K° 

Thermal  Conductivity 

Semiconductor  -  5  x  10  ^  watt/cm-K° 
Substrate  -  5  x  10  ^  watt/cm-K° 

Semiconductor  Specific  Heat 

0.7  J/gm-K° 

Semiconductor  Density 

3 

2.3  gm/cm 

Constant  Current  Source  Amplitude 

10  amps /cm3 
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Fig.  4.3.  Maximum  Temperature  as  a  Function  of  Time 
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The  resulting  behavior  of  the  diode  model  is  presented  in  Figs.  4,1 
through  4.12.  A  description  of  the  thermal  second  breakdown  transient 
is  as  follows.  The  diode  model  terminal  voltage,  as  a  function  of  time, 
is  shown  in  Fig.  4.1  for  a  logarithmic  time  scale  and  in  Fig.  4.2  for  a 
linear  time  scale.  These  curves  exhibit  the  well  established  voltage 
transient  characteristic  of  thermal  second  breakdown.  Notice  that  Fig. 4,1 
has  several  transient  reference  times  marked.  These  times  are  used  to 
coordinate  the  various  aspects  of  the  simulation.  Furthermore,  Fig.  4.1 
clearly  reveals  four  distinct  phases  which  the  simulation  transient  passes 
through. 

First,  the  diode  model  is  observed  to  undergo  a  rapid  voltage  change 
in  response  to  the  abrupt  increase  in  current  which  initiated  the  simula¬ 
tion.  The  diode  model  depletion  region  expands  with  equal  rapidity  such 
that  the  avalanche  generated  current  increases  to  compensate  for  the 
increased  current  load  placed  on  the  diode  model.  Fig.  4.3  shows  that 
this  transition  is  isothermal  since  there  is  no  detectable  change  in 
device  temperature.  This  phase  terminates,  short  of  time  t* ,  in  a  quasi¬ 
stable  state  determined  by  the  diode  model  current  amplitude  in  the 
absence  of  significant  thermal  effects. 

Second,  as  the  simulation  progresses  the  junction  area  begins  to 
heat  up,  through  joule  heating,  as  can  be  seen  in  Figs.  4.3  and  4.10. 

The  increasing  junction  temperature  is  manifest  in  the  diode  voltage 
transient,  Figs.  4.1  and  4.2,  as  a  corresponding  continuous  increase  in 
diode  voltage.  The  negative  temperature  dependence  of  the  avalanche 
ionization  coefficients  readily  accounts  for  this  effect.  Furthermore, 
it  can  be  observed  in  Figs.  4.5  and  4.7  that  the  increasing  junction 
temperature  is  also  accompanied  by  a  considerable  increase  in  the  carrier 
generation  rate  within  the  depletion  region.  In  fact,  the  increased 
carrier  generation  rate  is  sufficient  to  yield  minority  carrier  diffusion 
currents  flowing  into  the  respective  bulk  regions,  and  thus,  contrary 
to  an  avalanche  dominated  junction.  The  only  other  carrier  generation 
mechanism  available  and  the  one  responsible  for  the  observed  increase 
is  the  thermal  generation  mechanism.  The  fact  that  the  total  generation 
rate  for  the  junction  has  increased,  demonstrates  that  carrier  generation 
is  now  dominated  by  thermal  generation  rather  than  avalanche  generation. 
Nevertheless,  at  this  point  in  the  simulation,  thermal  generation  is 
unable  to  account  for  the  total  device  current  since  the  device  voltage 
is  still  maintained  sufficiently  high  to  support  some  degree  of  avalanche 
breakdown. 

Third,  shortly  after  time  ,  the  onset  of  thermal  second  break¬ 
down  begins.  The  subsequent  rapid  collapse  of  the  junction  voltage 
occurs  concurrently  with  a  substantial  increase  in  the  rate  of  carrier 
generation  within  the  reduced  depletion  region.  The  increased  carrier 
generation  rate  is  evident  in  the  mobile  carrier  profiles.  Figs.  4.6 
and  4.8,  and  in  the  hole  and  electron  current  profiles,  Fig.  4,10, 
Avalanche  breakdown  is  completely  extinguished  as  a  consequence  of 
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the  subsequent  drop  in  diode  voltage.  Furthermore,  it  is  observed 
in  Figs.  4.3,  4.4,  and  4.10  that  the  junction  temperature  continues 
to  increase  rapidly  throughout  most  of  the  second  breakdown  transition. 

Fourth,  and  finally,  the  diode  approaches  a  stable  post  second 
breakdown  state.  Termination  of  the  second  breakdown  transient  occurs 
at  time  tg  as  is  clearly  evident  in  the  diode  voltage  transient.  Fig. 

4.2,  and  maximum  temperature  transient,  Fig.-  4.4.  The  further  decrease 
in  device  voltage  is  attributed  to  residual  thermal  effects. 

I 

4.2  Conclusions 

A  comprehensive  numerical  diode  model  for  investigation 
of  thermal  second  breakdown  has  been  developed.  In  Section  2  a  brief 
description  of  thermal  second  breakdown  in  thin  film  silicon— on— sapphire 
diodes  was  presented  as  an  introduction  to  this  phenomenon.  The  numerical 
diode  model  was  developed  in  Section  3,  and  yielded  a  transient  solution 
formulation  for  the  complete  set  of  time  dependent  partial  differential 
equations  that  govern  bipolar  simiconductor  behavior.  None  of  the  tra¬ 
ditional  assumptions  and  approximations  commonly  employed  to  simplify 
this  system  of  state  equations  are  required,  i.e.,  a  comprehensive 
solution  is  generated.  The  significant  features  of  the  diode  model  are 
summarized  as  follows: 

1.  One-dimension  electrical  effects 

2.  Simplified  two-dimensional  thermal  conduction 

3.  A  noniterative  transient  solution  procedure 

4.  A  generalized  implicit  formulation 

5.  Applicable  to  both  high  and  low  driving  currents 

6.  Reverse  or  forward  bias  modes  of  operation 

7.  A  contact-to-contact  simulation 

8.  Thermal  generation-recombination  throughout  device  structure 

9.  Impurity,  electric  field  and  temperature  dependent  mobilities 

10.  Electric  field  and  temperature  dependent  avalanche  ionization 
coefficients 

11.  Current,  or  a  combination  of  current  and  ohmic,  terminal 
boundary  conditions 

The  computer  program  version  of  the  diode  model  consist  of  four 
main  programs  and  a  collection  of  subroutines.  These  programs  are 
presented  in  Appendix  B.  The  main  program  which  actually  performs  the 
simulation  was  written  to  facilitate  a  non-uniform  spacial  grid  and  an 
arbitrary  impurity  profile.  However,  the  initial  state  generator,  which 
is  used  to  generate  a  thermal  equilibrium  initial  state  for  starting 
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a  simulation,  is  restricted  to  an  abrupt  junction  configuration  and 
a  uniform  spacial  grid.  For  the  thermal  second  breakdown  simulation 

presented  in  the  previous  section,  these  restrictions  lead  to  a  short 
diode  structure  which  was  undesirable  in  view  of  the  high  current  values 
associated  with  thermal  second  breakdown.  This  situation  was  alleviated 
by  assigning  a  considerably  reduced  value  to  the  semiconductor  and  sub¬ 
strate  thermal  conductivities.  Under  this  condition,  appreciable  thermal 
effects  resulted  at  reduced  current  values,  and  significant  mobile  space 
charge  induced  depletion  widening  was  avoided.  This  condition,  however, 
compromised  the  temporal  validity  of  the  subsequent  thermal  second  break¬ 
down  simulation.  Nevertheless,  in  all  other  respects  the  simulation  very 
closely  approximated  the  expected  thermal  second  breakdown  behavior.  The 
subsequent  analysis  of  the  simulation  leads  to  the  following  conclusions: 

1,  Thermal  second  breakdown  can  be  initiated  and  supported  without 
the  necessity  of  junction  inhomogeneities,  current  constrictions, 
and  variable  perturbations  through  various  mechanisms.  This 
implies  that  thermal  second  breakdown  is  a  fundamental  property 
of  the  semiconductor  state  equations,  Junction  inhomogeneities, 
etc,,  simply  serve  to  enhance  and  prematurely  initiate  this 
phenomenon , 

2,  Simulation  results  support  the  theory  that  thermal  second  break¬ 
down  is  primarily  a  consequence  of  thermal  quenching  of  avalanche 
breakdown  by  the  temperature  dependent  diode  leakage  current. 

3,  Thermal  second  breakdown  can  result  in  all  but  a  complete  col¬ 
lapse  in  the  junction  voltage  without  the  benefit  of  a  melt 
filament. 

4,3  Recommendations  for  Further  Study 

The  generality  of  the  numerical  diode  model  presented  can 
be  further  expanded  through  addition  of  two  features.  One,  an  initial 
state  generator  capable  of  generating  thermal  equilibrium  states  for 
arbitrary  impurity  profiles.  The  other,  an  algorithm  for  generating  an 
optimal  spacial  grid.  These  improvements  in  the  diode  model  would  facil¬ 
itate  simulations  requiring  arbitrary  impurity  profiles  and  long  base 
diode  structures. 

There  are  a  number  of  areas  in  thermal  second  breakdown  research 
which  require  further  investigation  and  to  which  the  diode  model  is 
applicable.  Some  are  listed  below. 

1.  Effects  of  various  type  junction  inhomogeneities  on  thermal 
second  breakdown  characteristics 

2.  Relationship  between  resistivity  turn-over  temperature  for 

the  low  doped  side  of  the  junction  and  the  junction  temperature 
corresponding  to  the  onset  of  thermal  second  breakdown 
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3,  Critical  energy  versus  delay  time  characteristics  for 
initiation  of  thermal  second  breakdown 

4,  Relationship  between  junction  leakage  current  and  thermal 
second  breakdown  characteristics 

5,  Relationship  between  impurity  concentration  on  the  low  doped 
side  of  the  junction  and  the  thermal  second  breakdown  delay 
time 


60 


APPENDIX  A 


COEFFICIENT  FORMULATION 

This  Appendix  presents  the  detailed  formulation  of  the  coefficients 
for  the  matrix  equation  (3.70)  which  characterizes  the  numerical  diode 
model  developed  in  Section  3.  The  structure  of  the  coefficient  matrix 
for  this  system  of  equations  is  illustrated  in  Fig.  3.9,  where  the  banded 
form  of  the  matrix  is  apparent.  The  computer  program  implementation  of 
the  diode  model,  presented  in  Appendix  B,  takes  full  advantage  of  this 
characteristic  by  storing  only  the  banded  section  of  the  coefficient  matrix 
along  with  the  respective  equation  constant  terms.  The  respective  node 
equation  coefficients  and  constant  term  are  stored  in  a  row-wise  fashion 
with  the  same  equation  order  depicted  in  Fig.  3,9,  From  this  figure  it 
is  also  determined  that  the  modified  coefficient  array  must  have  eleven 
columns  for  the  equation  coefficients  and  one  column  for  the  respective 
constant  term.  The  array  length  is  dependent  on  the  number  of  N-nodes, 

P,  employed  by  the  diode  model  and  is  evaluated  as  4P-8,  Accordingly, 
the  modified  coefficient  array  is  designated  as  the  A  array  and  has  the 
dimensions  (4P-8)xl2.  The  formulation  of  the  coefficients  for  this 
array  and  the  required  auxiliary  relations  are  presented  below. 
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I.  Notation 


A.  Variable  and  Parameter  Definitions 

A  -  Modified  coefficient  array,  (4P-8)xl2 
N  -  Major  node  number  (N-node) 

M  -  Minor  node  number  (M-node) 

LP  -  Row  number  for  hole  continuity  equation  formulated 
at  node  N 

LN  -  Row  number  for  electron  continuity  equation  formulated 
at  node  N 

LE  -  Row  number  for  Poisson  equation  formulated  at  node  N 

LT  -  Row  number  for  energy  continuity  equation  formulated 

at  node  M 

B.  Equation  row  indexes  in  terms  of  node  numbers 

LP  =  l+4(N-2) 

LN  =  2+4(N-2) 

LE  =  3+4(N-2) 

LT  =  4+4 (M-2) 

II.  Generalized  Coefficient  Formulation  for  the  Hole  Continuity 
Equation 

A.  Hole  continuity  equation  functional  term 

J  (M-l)  _  J  (M) 

Fp(N)  =  Gg(N)  +  GjCN)  + 

B.  Coefficient  formulation 

3F  (N) 

A^’1)  ■  -  SOM)  *  0 
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A(LP,2)  =  - 


A(LP,  3) 


A(LP ,4)  =  - 


A(LP,7)  =  - 


A(LP  ,8)  =  - 


A(LP,9)  =  - 


3F  (N) 

P 

3Gj (N) 

'  3p(N-l) 

3p  (N-l) 

3F  (N) 

P 

3GI(N) 

3n(N-l) 

3n(N-l) 

3F  (N) 

P 

t. 

3GX(N) 

3E (M-l) 

3E  (M-l) 

3F  (N) 

P 

3Gg(N) 

3T (M-l) 

3T (M-l) 

i  9F«(N> 

A  P 

1 

6At  3p(N) 

0At  ' 

1  ^  <M> 

1  P 

Ax(N)  3p(N) 

3F  (N) 
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3Gg (N) 

3n(N) 

3n(N) 

3F  (N) 

P  

3Gt(N) 

X 

3E(M) 

3E(M) 

3F  (N) 

P 

3Gg(N) 

3T(M) 

3T(M) 

,  9J  (M-l) 

z.  _ E__ - 

Ax(N)  3p(N-l) 


,  3J  (M-l) 

_ E - 

Ax(N)  3E (M-l) 


9Gt(N) 


3J  0 

E 


3T(M-1)  Ax(N)  3T(M- 


9GS(N) 


3GI(N) 


3p(N)  3p(N)  Ax(N) 


9Gj (N) 
3n(N) 


3J  (M) 

— E 


3Gt(N) 


3J  (M) 

E 


3T(M)  Ax  (N)  3T(H) 


A  (LP  ,  10  ) 


3F  (N) 
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3p(N4-l) 


SG^N) 


3J  (M) 

E 


3p(N+l)  Ax(N)  3p(N+l) 


[-D 


1) 


3J  (M-l) 
3p(N) 
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A(LP  ,11) 


3Fp(N)  3Gr(N) 

3n(N+l)  =  ”  3n(N+l) 


A(LP  ,12)  =  |  F  (N) 
o  p 


III.  Generalized  Coefficient  Formulation  for  the  Electron  Continuity 
Equation  1 

A.  Electron  continuity  equation  functional  term 


Fn00 


Gg(N)  +  Gj (N)  + 


Jn(M) 

Ax(N) 


Jn(M-» 

lx(N) 


B.  Coefficient  formulation 


A(LN,1)  =  - 


3Fn(N) 

3p(N-l) 


SGjCN) 

ap(N-i) 


A(LN  ,2) 


3F  (N) 
n 

3n(N-l) 


36j.CN) 


3J  (M-l) 
n 


3n(N-l)  Ax(N)  3n(N-l) 


A(LN  ,3)  =  - 


3F  (N) 
n 

3E(M-1) 


3GI(N) 


3J  (M-l) 
n 


3E(M-1)  Ax(N)  3E(M-1) 


A(LN ,4)  =  - 


3F  (N) 
n 

3T  (M-l) 


3Gs(N) 


3GI(N) 


3J  (M-l) 
n 


3T (M-l)  3T (M-l)  Ax(N)  3T(M-1) 


A(LN  ,5)  =  - 


9Fn(N) 

3p(N) 


3GS(N) 


3Gj.(N) 


3P(N)  3p(N) 


A(LN  ,6) 


.  3F„  (N)  X  9G_(N)  3G  (N)  3J  (M-l) 

1  _  n  _  1  _  S  I _ ,  1 _ n _ 

0At  “  3n(N)  “  9At  “  3n(N)  "  3n(N)  Ax(N)  3n(N) 


1 

n 

Ax(N)  3n(N) 
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A(LN,7) 


A(LN  ,8) 


9F  (N) 
n 

ac^N) 

1 

3J  (M) 
n 

9E(M) 

9E(M) 

'  Ax(N) 

3E(M) 

9F  (N) 
n 

3Gg(N) 

3Gj.CN) 

1 

3J  (M) 
n 

9T(M) 

9T(M) 

3T(M) 

Ax(N) 

3T(M) 

3F  (N)  3G  (N) 

A(LN,9)  =  -  9p(N+1)  =  "  3p(N+l) 


A(LN  ,10)  =  - 


9F  (N) 
n 

9n(N+l) 


9GX(N)  ±  3Jn(M) 

3n(N+l)  "  Ax (N)  3n(N+l) 


A(LN ,  11) 


9F  (N) 
n _ 

3E(MH) 


A(LN,12)  =  |  F  (N) 
u  n 

IV.  Generalized  coefficient  formulation  for  the  Poisson  equation 

A.  Poisson  equation  functional  term 

F  (N)  =  E(M-l)  -  E(M)  +  Ax(N)  [P (N)  -  n(N)  -h  N_(N)] 

E  I 

B.  Coefficient  formulation: 

A(LE  ,1)  =  0 

A(LE  ,2)  =  -1 
A(LE,3)  =  0 
A(LE  ,4)  =  -Ax(N) 

A(LE  ,5)  =  Ax(N) 
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A(LE,6)  =  1 
A(LE  ,7)  =  0 
A(LE  ,8)  =  0 
A(LE  ,9)  =  0 
A(LE  ,10)  =  0 
A(LE  ,11)  =  0 
A(LE  ,12)  =  Fe(N) 


V.  Generalized  Coefficient  Formulation  for  the  Energy  Balance 
Equation 

A.  Energy  balance  equation  functional  term 


FX(M)  =  a1[T(M-l)  -  T (M) ]  +  o2[T(Mfl)  -  T(M)  ]  +  o3[Tq  -  T(M) ] 
+  ajE(M)  |  1 1  Jp  (M)  +  |Jn(M)|] 


B.  Coefficient  formulation 


A(LT,1) 


9Ft(M) 

9E(M-1) 


9Ft(M) 

A(LT’2)  =  -  mMHT=-°i 


A(LT,3) 


9Ft(M) 

9p(N) 


-<t4|e(M)  I 


3|jp(M)| 

9p(N) 


A(LT  ,4) 


9Ft(M) 

9n(N) 


-o4|E(M)| 


9|Jn(M)| 

9n(N) 
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A(LT,5)  = 


A(LT  ,6)  = 


A(LT  ,7)  = 


A(LT  ,8)  = 


A(LT  ,9)  = 


A(LT  ,10) 


A(LT ,  11) 


A(LT  ,12) 


9Ft(M) 

3E(M) 


-a 


4 


[|jp(M)|  +  |Jn(M)|] 


9  I E  (M)  | 

3E(M) 


r  3|j  (M)|  9|J  (M)|-| 

°4  |_3E(M)  +  3E(M)  J 


J_  9VM>  1 

6At  3T(M)  0At  °1  °2  °3 


r 3|j  cm) i  3[Jn(M> n 
a4  E(M)  |_3T(M)  +  3T(M)  J 


9F  (M)  9  |  J  (M)  | 

"  3p(N+l)  =  -CT4  3p(N+l) 


9F  (M)  9 | J  (N)  | 

"  3n(N+l)  =  "a4  lE^  I  3n(N+l) 


9Ft(M) 

3E(Mfl) 


»  _  =  _a 
3T(Mfl)  2 


9FX(M) 


3p(Mf2) 


-  £  VM> 
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Where  a^,  a^,  a^,  and  a 
normalized  parameters^" 
follows^ : 


^  are  defined  in  terms  of  the  un- 

V  V  p’  c’  *dt’  and  *ht  as 


=  TN_  S _ 

CT1  ^2  p  c  Ax(M)  Ax(N) 


_  TN_  _ 

°2  xN2  p  c  Ax(M) Ax (N+l) 


p  C 


=  EN  »  CURN  •  TN  1 
a4  TEMPN  pc 

VI.  Hole  and  Electron  Current  and  Subsequent  Derivative  Formulation 
A.  Ax(M)E(M) /T(M)  >  EXTCRI  (current  formulation  switching 
variable) 


Jp(M) 


U  (M)E(M) 


p  (N+ 1)  p(N) 

Ax(M)E(M) ~  +  Ax(M)E(M) 

1  -  e  T(M)  1  -  e"  T(M) 


^The  computer  diode  model  presented  in  Appendix  B  maintains  these 
parameters  in  unnormalized  form. 

2 

Normalization  constants  appear  in  the  subsequent  equations  to 
compensate  for  unnormalized  parameters. 
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aj  (m) 
_ E _ 

9p(N) 


3J  (M) 

_ E _ 

3p(N+l) 


8J  (M) 
_ El — 

3E(M) 


aj  (m) 
_ E _ 

3T(M) 


Jn(M)  - 


9J  (M) 

n 

3n  (N) 


M  (M)E(M) 

E 


1  - 


Ax  (M)  E  (M) 

T(M) 


y  (M)E(H) 
n 

Ax(M)E(M) 
1  -  e  I(M) 


Jp(M)  ^00  Jj/10  ^ 

U  (M)  9E(M)  E(M)  T(M) 

P 


p (N+ 1)  -  p(N) 

_ 1 _ 1 

aj  (M)  ”  3J  (M) 

P  .  -  — E - 

aP(N)  ap(N+i) 


JP(M>  3%(M)  ,  Ax(M)E(M) 

yp(M)  3T(M)  T(M)2 


p  (N+l)  -  p(N) 

_ +  _ l _ 

aj  (M)  aj  (m) 

_ E _  _ E - 

3p(N)  3p(N+l) 


Un(H)E(M) 


n(W-l) 

1  -  e 


Ax(M)E(M) 

T(M) 


+ 


n(N) 


1 


Ax(M)E(M) 

T(M) 

e 


yn(M)E(M) 


1  -  e 


Ax(M)E(M) 

T(M) 
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aj  (m) 

n 

3n(N+l) 


y  (M)E(M) 
n 


1  - 


Ax(M)E(M) 

T  (H) 


aj  (M) 
n 

aE(M) 


J  (M)  3y  (M) 
n _ n  , 

yn(H)  3E(M) 


J  (M) 

— 2 - + 

E(M)  + 


Ax(H) 

n (N+ 1)  -  n(N) 

T(M) 

1  1  1 

aj  (M)  3J  (M) 

n  n 

8n(N)  3n(N+l) 

aj  (M) 

n 

J  (M)  3y  (M) 
n  n 

Ax  (M)  E  (M) 

n(N+l)  -  n(N) 

aT(M) 

'  y  (M)  3T(M) 

T  (M)2 

1  j.  1 

n 

aj  (m) 

n 

3J  (M) 
n 

3n(N+l 

3n(N) 

B.  Ax(M)E(M) /T(M)  <  EXTCRI  (Current  formulation  switching 
variable  )  • 


o(M) 


.  Ax(M)E(M) 
"  T  (M) 


a(M)  ,  ,  a(M)  a(M)2 

,  a(M)  "  _1  +  2  '12 

1  -  e 


a(M) 

1  - 


-a  (M) 
e 


1  + 


2 


a(M)‘ 

12 
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g(M)  =  -1  + 


q(M)  ct(M)2 
2  "  12 


h(M)  H  1  + 


q(M)  ,  q(M)2 
2  12 


u  (M)T(M) 

Jp(M)  *  PAx(H)"~  +  h(M)p(N)] 


3J  (M)  y  (M)T(M)h(M) 

_ 2 _  ~  — E - 

3p(N)  Ax  (M) 


3J  (M)  y  (M)T(M)g(M) 

P  _  P  _ 

3p(N+l)  =  Ax(M) 


3J  (M) 

_2 _ 

3E(M) 


J  (M)  3u  (M)  yn(H)T(M) 

_E _ £ - +  —2 — - - 

y  (M)  3E(H)  Ax(M) 

P 


[ 


p(N+l) 


3g(M) 

3E(M) 


+  p(N) 


3h(M)~| 

3E(M)J 


3J  (M) 
_ E _ _ 

3T(M) 


J  (M)  y  (M)T(M) 

— E - -i — E - 

T(M)  Ax(M) 


[ 


P(IW-I) 


3*00 

3T(M) 


+  p(N) 


3h(M) 

3T(M) 
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u  (M)T(M) 


n 


Jn(M)  -  Ax (M) 


[h(M)n(N+l)  +  g(M)n(N) ] 


3J  (M)  p  (M)T(M)g(M) 


9n(N) 

Ax(M) 

9J  (M) 
n 

p  (M)T(M)h(M) 
n 

9n(N+l) 

Ax(M) 

9J  (M) 
n 

Jn(M) 

9y  (M)  p  i 

n  |  n 

9E(M) 

„n(H) 

9E(M) 

9J  (M) 

J  (M) 

p  (H)T(M) 

n 

n 

+  n  ... 

Ax  (M) 


[»<*»  m + -<»>  m] 


9T(M)  T(M)  Ax(M) 


+  n(N)  Ifw] 


VII.  Avalanche  Generation  Factor  and  Subsequent  Derivative  Formulation 


GjCM)  =  a  (M)  |  Jp  (M)  |  +  an(M)  |jn<M)| 


x  (N)  =  A^M-iJL- 

~  Ax(M-l)  +  Ax (M) 
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\  (n)  =  - 

V  '  "  Ax(M-l)  +  Ax(M) 


G];(N)  = 


3GI(N) 
3p (N- 1) 


3Gj.CN) 

3n(N-l) 


3Gj.CN) 

9ECM-1) 


3Gj.CN) 

3TCM-1) 


X  CN)  G  CM-1)  +  X  CN)  G  CM) 

mi  pi 


=  X  (N)  a  (M-l) 
m  p 


3 | Jp CM-1) | 
9pCN-l) 


=  X  (N)  a  CM-1) 
m  n 


9 | Jn CM-1) | 
9nCN-l) 


=  X  (N) 
in 


[  I Jp (M-l) | 


9a  CM-1)  9 | J  CM-1) | 

9ECM-1)  +  ap(M_1)  3ECM-1) 


9a  CM-1)  9 1 J  CM-1)  |  “1 

+  lJn(M-1)l  ik  +  Ve'CM-I) _| 


9a  CM-1)  3 | J  CM-1) | 

■  V»>  o,p(M-l) 

3a  CM-1)  9 | J  CM-1) | 

+  |  Jn CM-1)  |  +  °nCM-l)  gx^.!)  J 
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3Gr(N) 

3p(N) 


3Gt(N) 

3n(N) 


SGj (N) 
3E(M) 


+ 


SGjCN) 

3T(M) 


+ 


SGjCN) 
3p (N+l) 


3GI(N) 

3n(N+l) 


3  |  J  (M-l)  |  3  |  J  (M)  | 

XJN,  «p(M-l)  ^ -  +  Xp(N)  cp(M)  ^^£5— 


3  I J_ (M-l) | 


XJN)  «n(M-l)  an(N) 


+  X  (N)  a  (M) 


9|J  (M)| 


n  n  3n(N) 


[ 


3o  (M)  3 | J  CM)  | 

AP(N)  |  3E(M)  +  ap(M)  3E(M) 


3a  (M)  3  j J  (M)  |  ”] 


3a  (M)  3|J  (M)| 

XP(N)  |_  lJp(M)l  3T(M)  +  ap(M)  3T(M) 


3a  (M)  3  |  J  (M)  |  “1 

war +  an(M)  m®—  J 


3|J  (M)| 

Xp(N)  ap(M)  3p(N+l) 


3 | J  (M)  | 

=  VN>  an<M>  r 
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VIII. 


Shockley-Read-Hall  Thermal  Generation  Factor  and  Subsequent 
Derivative  Formulation 


n±(N)2  -  p(N)n(N) 

GS(N)  =  xn[p(N)  +  n± (N) ]  +  xp[n(N)  +  n±(N)] 


n,(N)  =  A  (N)  n.(M-l)  +  A  (N)n. (M) 
i  in  I  pi 


9G 


_(N)  -  [ x  n. (N)  +  x  n(N)][n.(N)  +  n(N)] 

S  n  1  p  i 


3p(N) 


{x  [p(N)  +  n.  (N)  ]  +  x  [n(N0  +  n.  (N)]}' 
n  i  p  i 


3GS(N)  -[xpni(N)  +  Xnp(N)][ni(N)  +  p(N)] 

9n(N)  { x  [p (N)  +  n. (N) ]  +  x[n(N)  +  n  (N)]}2 

nip  i 


<5(N)  =  ^2 n^(N)  (xn[p(N)  +  n±(N)]  +  xp[n(N)  +  n± (N)  ] } 


-  <Tn  +  x  )  [n± (N)  -  p(N) 


n(N)]J 


{x  [p(N)  +  n,  (N)  ]  +  x  [n(N)  +  n,(N)]}' 
n  l  p  i 


9G  (N)  3n  (M-l)  3GC(N) 

' S(N>  X-(N) 


mv  '  3T (M-l)  3T (M) 


-v*.,  9n,(H) 

s<«  mHT 
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APPENDIX  B 


COMPUTER  DIODE  MODEL 

This  appendix  reports  the  computer  model  developed  to  implement 
the  numerical  diode  model  formulated  in  Section  3.  The  subsequent 
computer  programs  are  written  in  FORTRAN  V  for  execution  on  a  Univac  1110 
computer  system  in  conjunction  with  a  Tektronix  Display  Terminal,  and 
include  both  interactive  and  batch  mode  programs.  The  system  of  programs 
which  compose  the  computer  model  consist  of  the  four  main  programs:  DS, 
COMP,  GDG,  and  GRAPH.  Program  DS  is  the  simulation  control  program  which 
defines  the  simulation  to  be  performed  and  is  usually  executed  in  the 
interactive  mode.  COMP,  a  slave  program  to  DS,  is  executed  in  batch  mode 
and  performs  the  simulation  specified  by  DS.  When  a  graphic  analysis  of 
simulation  results  is  desired,  DGD  (graph-data-generator)  is  executed  to 
condition  the  simulation  summary,  stored  by  COMP,  to  comply  with  the  data 
format  required  by  the  graphics  display  program  GRAPH.  GDG  may  be  exe¬ 
cuted  in  either  batch  or  interactive  mode,  whichever  is  most  convenient. 
GRAPH  must  be  executed  interactively  from  a  Tektronix  Display  Terminal 
and  employs  Tektronix  Advance  Graphics  II  software  [17,  18]. 

Data,  in  unnormalized  form,  is  communicated  between  the  four  main 
programs  through  a  collection  of  magnetic  disk  data  files.  DS  and  COMP 
employ  seven  of  these  data  files  of  which  7  and  8  are  used  by  COMP  for 
storing  a  simulation  summary,  9  is  used  by  DS  for  printer  output,  and  10, 
11,  12,  and  13  are  used  for  storing  simulation  states  which  are  referenced 
by  both  DS  and  COMP.  GDG  reads  data  files  7  and  8,  generated  by  COMP,  and 
subdivides  these  two  data  files  into  twenty-eight  new  data  files,  20 
through  34  and  37  through  49,  which  comply  with  the  data  format  required 
by  GRAPH.  Subsequently,  these  twenty-eight  data  files  are  used  by  GRAPH 
to  generate  desired  data  plots. 

It  is  appropriate  here  to  clarify  the  term  "simulation  state"  which 
denotes  an  ordered  collection  of  all  the  parameter  and  variable  values 
required  by  COMP  for  the  initiation  of  a  simulation.  These  values  are 
listed  in  Table  B.l  and  include  sentinels  which  control  simulation  input/ 
output,  etc.,  as  well  as,  parameters  which  describe  the  diode  being  mod¬ 
eled,  along  with  the  necessary  boundary  and  initial  conditions.  Two 
simulation  states  are  associated  with  each  simulation.  One,  the  initial 
state,  is  the  state  used  to  start  the  simulation.  The  other,  or  the  final 
state,  is  the  state  established  at  the  end  of  each  simulation.  It  is 
important  to  note  that  the  term  "initial  state"  implies  only  that  the 
state  is  designated  to  start  the  simulation  and  does  not  indicate  the 
physical  state  of  the  diode. 

This  system  for  storing  simulation  states  allows  long  simulations 
to  be  performed  through  a  series  of  short  simulations;  successive  simu¬ 
lations  use  the  final  state  of  the  previous  simulation  as  an  ititial 
state.  Moreover,  a  library  of  simulation  initial  states  can  be  compiled 
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TABLE  B.l 


SIMULATION  STATE  DATA  FORMAT  AND  VARIABLE  DEFINITIONS 


Position 

Name 

Type 

Definition 

1 

NSF 

I1 

Number  of  new  state  (simulation  final 
state)  file 

2 

T 

I 

Time  step  counter 

3 

TMAX 

I 

Maximum  number  of  time  steps  allowed 

4 

RCMPB 

I 

Printer  code  for  printer  output  from  COMP 

5 

P 

I 

Number  of  N  or  M  nodes 

6 

LNORC 

I 

1-Output  listing  of  normalization  constant 
values 

7 

TLINC 

I 

Number  of  time  steps  skipped  before 
printing  transient  data  values 

8 

TSINC 

I 

Number  of  time  steps  skipped  before 
storing  transient  data  values 

9 

LCS 

I 

1-List  simulation  cross  section  summary 

10 

LSCS 

I 

1-Store  simulation  cross  section  summary 

11 

LCSPI 

I 

Number  of  N  or  M  nodes  to  skip  before 
printing  cross  section  data  values 

12 

LSCSPI 

I 

Number  of  N  or  M  nodes  to  skip  before 
storing  cross  section  data  values 

13 

LFREAD 

I 

Number  of  last  data  file  read 

14 

LFSTOR 

I 

Number  of  last  data  file  written 

15 

NTYBND 

I 

0-Current  boundary  conditions,  1-hybrid 
boundary  conditions 

16 

NTHDEP 

I 

O-Isothermal,  1-thermally  dependent 

^1  indicates  an  integer  variable  and  R  indicates  a  real 
double  precision  variable. 
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TABLE  B.l  (Continued) 


Position 

Name 

T^e 

Definition 

17 

NCS 

I 

Number  of  simulation  cross  sections 
in  addition  to  initial  and  final 
simulation  cross  sections 

18 

I  DATE 

I 

Date  of  simulation  state  generation 

19 

ITIME 

I 

A 

Time  of  simulation  state  generation 

20 

IBLANK 

I 

Dummy  interger  variables  to  facilitate 

• 

• 

29 

• 

• 

IBLANK 

system  expansion 

30 

DIEL 

R 

Semiconductor  dielectric  constant 

31 

TEMPO 

R 

Diode  initial  temperature 

32 

CARINT 

R 

Intrinsic  carrier  concentration  for 
diode  initial  temperature 

33 

DONOR 

R 

Donor  impurity  concentration  level 

34 

ACCEPT 

R 

Acceptor  impurity  concentration  level 

35 

XMET 

R 

Location  of  metallurgical  junction  with 
respect  to  n-side  contact 

36 

XL 

R 

Total  length  of  diode 

37 

TAUN 

R 

Electron  lifetime 

38 

TAUP 

R 

Hole  lifetime 

39 

ARE  AD 

R 

Diode  cross  sectional  area 

40 

DT 

R 

Incremental  time  step 

41 

TTIME 

R 

Maximum  simulation  time 

42 

TIME 

R 

Simulation  time 

43 

THETA 

R 

Crank-Nicolson  factor 

44 

VDBI 

R 

Diode  built-in  voltage  used  by  COMP 
to  evaluate  diode  bias  voltage 

45 

DX 

R 

Spacial  coordinate  increment  for  uniform 
spacial  grid 
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46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 

61 

62 

63 

64 


Name 

DEPN 

DEPP 

DEPW 

XDEPN 

XDEPP 

VDBIAN 

VDBISG 

CURTOT 

EXTCRI 

FDTMUL 

VDCOMP 

CBEDS 

VBEDS 

ENGAP 

THCOND 

SPHEAT 

DENSITY 

AITS 

XDT 


TABLE  B.l  (Continued) 

Type  Definition 

R  Depletion  region  width  on  n-side 

R  Depletion  region  width  on  p-side 

R  Depletion  region  total  width 

R  Location  of  depletion  region  boundary 
on  n-side  with  respect  to  the  n-side 
contact 

R  Location  of  depletion  region  boundary 
on  p-side  with  respect  to  the  n-side 
contact 

R  Diode  built-in  voltage  evaluated 
analytically 

R  Diode  built-in  voltage  evaluated  by 
the  initial  state  generator 

R  Diode  constant  current  density 

R  Current  component  formulation  switching 
value  E(M)Ax(M)/T(M) 

R  Time  step  multiplication  factor 

R  Simulation  final  value  for  total  diode 
voltage 

R  Conduction  band  effective  density  of 
states 

R  Valence  band  effective  density  of  states 

R  Semiconductor  energy  gap 

R  Semiconductor  thermal  conductivity 

R  Semiconductor  specific  heat 

R  Semiconductor  density 

R  Temperature  coefficient  for  hole  and 

electron  ionization  coefficients 

R  Semiconductor  thickness 
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TABLE  B.l  (Continued) 


Position 

Name 

Type 

Definition 

65 

XHT 

R 

Substrate  thickness 

66 

THCONH 

R 

Semiconductor  thermal  conductivity 

67 

DBLANK 

R 

Dummy  real  variables  to  facilitate 

76 

• 

• 

DBLANK 

system  expansion 

77 

XXN(l) 

• 

• 

XXN(P) 

R 

N-node  positions 

77+P 

DOPN(l) 

DOPN(P) 

R 

Impurity  cross  section 

77+2P 

HOL(l) 

• 

• 

HOL(P) 

R 

Hole  concentration  cross  section 

77+3P 

ELE(l) 

ELE(P) 

R 

Electron  concentration  cross  section 

77+4P 

E(l) 

E(P) 

R 

Electric  field  cross  section 

77+5P 

V(l) 

V(P) 

R 

Voltage  cross  section 

77+6P 

TEMP ( 1) 

• 

• 

TEMP (P) 

R 

Temperature  cross  section 

77+7P 

CSTIME (1) 

R 

Cross  section  output  times  in  addition 
to  the  initial  and  final  simulation 

CSTIME (NCS) 

times 
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by  storing  the  various  simulation  final  states  on  magnetic  tape.  Such 
a  library  is  further  enhanced  by  storing  the  simulation  summary  files 
7  and  8  along  with  the  corresponding  final  state  so  that  subsequent  graphic 
examinations  of  the  simulations  that  produced  the  respective  final  states 
are  possible  without  the  neccessity  of  repeating  the  simulations  of 
interest. 

The  simulation  summary  stored  in  data  files  7  and  8  contains  a 
description  of  the  simulation  transient.  Diode  cross  sections,  or  col¬ 
lections  of  spacially  dependent  quantities  such  as  the  dependent  variables, 
impurity  profiles,  etc.  are  stored  in  data  file  7  at  specified  points  in 
the  time  during  a  simulation.  Data  file  8  contains  quantities  which  are 
a  function  of  time  only,  such  as  diode  bias  voltage,  incremental  time  step, 
etc.  These  quantities,  unlike  the  cross  sections,  are  stored  at  equal 
intervals  with  respect  to  time  step  cycles. 

The  remainder  of  this  appendix  describes  the  four  main  programs 
and  related  subprograms  which  compose  the  computer  diode  model.  Complete 
computer  listings  are  provided  for  all  algorithms  along  with  flow  charts 
for  the  more  complex  ones. 

B.l  Program  DS 

Program  DS  is  the  simulation  control  program  which  defines 
the  diode  simulation  to  be  performed  by  establishing  the  appropriate  ini¬ 
tial  state  in  the  initial  state  transfer  data  file  10;  COMP  is  programmed 
to  accept  this  file  as  the  simulation  initial  state.  DS  is  designed  for 
the  interactive  mode  of  operation  to  eliminate  the  cumbersome  card  hand¬ 
ling  which  characterizes  batch  mode  operation.  Nevertheless,  when 
circumstances  dictate,  DS  can  be  executed  in  a  batch  mode.  DS  is  written 
in  terms  of  unnormalized  values  and  features  five  basic  operations.  First, 
the  desired  initial  state  is  chosen  from  one  of  four  simulation  state 
files  10,  11,  12  or  13  and  the  designated  file  is  read.  Otherwise,  it 
is  assumed  that  an  appropriate  initial  state  is  not  available  and  the  pro¬ 
gram  precedes  to  generate  an  initial  state  corresponding  to  a  diode  in 
thermal  equilibrium  with  an  abrupt  impurity  profile.  This  is  accomplished 
by  assigning  nominal  values  to  all  simulation  sentinels  and  parameters 
other  than  the  fundamental  parameters  which  characterize  the  basic  diode 
design;  values  for  these  quantities  are  solicited  by  the  program.  A 
diode  design  which  allows  one  of  the  depletion  regions  to  reduce  the 
respective  bulk  region  to  zero  width  is  considered  erroneous,  causing  an 
error  message  to  this  effect.  The  user  is  then  presented  an  opportunity 
to  redefine  the  diode  design.  After  a  valid  diode  design  is  established, 
subroutine  ISTG  (initial-state-generator)  is  called  to  generate  a  diode 
initial  state  through  approximate  analytic  formulation.  This  operation 
completes  the  simulation  initial  state  generation  procedure.  Next  the 
simulation  control  and  model  parameners  are  optionally  updated.  With 
this  activity  completed  the  new  or  updated  simulation  initial  state  is 
written  in  data  file  10,  and  optionally  in  a  second  data  file  specified 
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by  the  user.  This  second  data  file  is  not  restricted  to  the  four  data 
files  required  by  the  computer  model,  and  thus  can  be  an  additional  user 
defined  data  file.  With  the  simulation  initial  state  stored,  a  listing 
of  the  simulation  initial  state  is  available  on  an  optional  basis.  If 
a  listing  is  requested  the  user  must  supply  the  printer  code  to  which 
the  desired  listing  is  to  be  directed.  Finally,  an  optional  remote  start 
for  COMP  is  presented.  If  requested,  all  pertinent  data  files  are  freed 
and  a  remote  start  of  COMP  is  initiated. 

A  flow  chart  for  DS  is  shown  in  Fig’.  B.l  and  a  complete  listing  of 
the  program  is  presented  in  Fig.  B.2.  DS  references  directly  or  indirect¬ 
ly  seven  subroutines:  DTMUL,  CST,  ISTG,  THEQCA,  INTRI ,  DEPL,  and  NTAB$ 
in  conjunction  with  several  input/output  FORTRAN  procedures  which  are 
included  in  the  collection  of  input/output  procedures  RWLF .  These  algor¬ 
ithms  are  described  below. 

Procedure  Collection  RWLF 

Individual  procedures  from  this  collection  of  FORTRAN  procedures 
are  employed  by  both  DS  and  COMP  for  input/output  operations  pertaining 
to  the  parameter  and  variable  values  which  compose  a  simulation  state. 

This  technique  of  handling  these  operations  greatly  facilitates  program 
changes  which  involve  the  addition  or  removal  of  simulation  state 
variables  by  minimizing  the  number  of  program  changes  required  to  imple¬ 
ment  a  modification  of  this  nature.  Source  listing  for  RWLF  is  presented 
in  Fig.  B.3. 

Subroutine  DTMUL 

DTMUL  only  evaluates  a,  the  factor  by  which  each  simulation  time 
step  is  multiplied  to  obtain  the  suceeding  time  step.  For  this  type 
time  step  formulation,  simulation  time  may  be  represented  as  a  finite 
geometric  series.  Accordingly,  the  time  step  behavior  for  a  simulation 
can  decrease,  remain  constant,  or  increase  as  a  function  of  time  depend¬ 
ing  on  whether  the  value  of  a  is  less  than,  equal  to,  or  greater  than 
one,  respectively.  Subroutine  DTMUL  evaluates  an  approximate  value  for 
a  which  satisfies  a  finite  geometric  series  for  simulation  time  given  the 
initial  time,  the  initial  time  step,  the  total  number  of  time  steps  desired 
and  the  final  time.  DTMUL  is  called  by  the  FORTRAN  procedure  DCONTP 
from  program  DS  when  the  specified  value  for  Ot  is  less  than  0.5,  an 
unusually  low  value;  otherwise,  the  user  specified  value  is  accepted 
and  DTMUL  is  not  called.  Source  listing  for  DTMUL  is  presented  in 
Fig.  B.4. 

Subroutine  CST 

CST  is  called  by  procedure  DCONTP  to  input/output  simulation  cross 
section  print/storage  times.  This  operation  is  performed  through  a 
subroutine  to  maintain  the  general  form  of  the  input/output  FORTRAN 
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Fig.  B.l.  Flow  Chart  for  Program  DS 
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Fig.  B.l.  (Continued)  Flow  Chart  for  Program  DS 
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(>♦*****♦♦♦  DS  (DIODE  SIMULATION)  ♦♦*♦****♦* 


C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


DS  interactively  generates  and/or  updates  initial 

STATES  FOR  THE  DIODE  SIMULATION  PROGRAM  COMP 

through  the  following  operations: 

1)  UPDATING  OF  CONTROL  AND  MODEL  PARAMETERS  FOR  AN 
EXISTING  STATE 

GENERATION  OF  AN  APPROXIMATE  THERMAL  EQUILIBRIUM 
STATE  THROUGH  ANALYTIC  FORMULATION 
PRODUCE  A  STATE  LISTING 

STATE  IS  TRANSFERRED  TO  COMP 
DS  PROVIDES  A  REMOTE  START 


2) 


3) 


THE  DESIGNATED  INITIAL 
THROUGH  DATA  FILE  10. 
OPTION  FOR  COMP*  WHICH 


IS  EXECUTED  IN  BATCH  MODE. 


IMPLICIT  DOUBLE  PRECISION( A-H*0-Z) 


C 

C  CONTROL  PARAMETERS 

INTEGER  T # TMAX * RCMP * RCMPB * TLINC * TSINC 


C 

C 


c 

c 

c 

c 


DIODE  STRUCTURE  AND  PHYSICAL  PARAMETERS 
INTEGER  P 

DIMENSION  XXN(lOl)*  DXM(llO)*  DOPN(iOl) 


INDEPENDENT  VARIABLES 

DIMENSION  HOL ( 101 ) *  ELE(lOl)*  E(lOl)* 


V(101)*  TEMP ( 101 ) 


SIMULATION  PARAMETERS 
DIMENSION  CSTIME<99) 


C 

C  INITIAL  STATE  DATA 
C 

C  ASSIGN  DATA  FILES 

CALL  ERTRAN  (6* •  (3ASG*  AX  10.  •  •) 

CALL  ERTRAN  (6* f QASG* AX  H.  •  f> 

CALL  ERTRAN  (6*#GASG*AX  12.  .  •) 

CALL  ERTRAN  (6*fQASG*AX  13.  .  •) 

C 

20  CONTINUE 

C 

C  SPECIFY  DATA  FILE  TO  BE  READ 
LF=10 

WRITE  (6*30)  LF 

30  FORMAT  (Ill**  STATE  FILE  TO  BE  READ* ) 

C 

READ  (5*40)  LF 
40  FORMAT  (Ill) 

C 

c  thermal  equilibrium  state  generation  default 
lfread=lf 

IF  (LF.NE.O)  GO  TO  50 
C 

C  DATA  ASSIGNMENTS 
C 

C  CONTROL  PARAMETERS 
NSF=13 
T=0 


Fig.  B.2.  Listing  for  Program  DS 
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57 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 


TMAX=10Q 

TLINC=2 

TSINC=1 

RCMPB=136 

LCSPI=2 

LSCSPI=1 

ntybnd=o 

NTHDEP=1 

NCS=0 

LCS=1 

LSCS=0 

AI TS=1 • 00-4 


C 

C  DIODE  STRUCTURE  AND  PHYSICAL  PARAMETERS 


P=101 

DIEL=11.7D0 

TEMPO=3QO.ODO 

DONOR=1.0D16 

ACCEPT=1.0Dlb 

XMET=0.5D-4 

XL=1.0D-4 

CBEDS=2.6D19 

VBEDS=1.04D19 

ENGAP=1.082D0 

XDT=1.0D-5 

XHT=1.0U-5 

C 

C  SIMULATION  PARAMETERS 
AREAD=1.0D-4 
DT=1.0D-12 
TTIME=1.0D-0 
THETA=1.0D0 
TIME=0.0D0 
TAUN=1.0D-9 
TAUP-1 • OD-9 
THCOND=1*5DO 
THCONH=1.5DO 
SPHEAT=0.7D0 
DENSTY=2.33D0 
FDTMUL=1.4D0 
C 

60  TO  90 
50  CONTINUE 
C 

LFRTEM=LFREAD 


Q  NO*  OF  N  NODES 
0  SILICON 
0  DEG.  KEL. 

0  1/CM**3 
0  1/CM**3 
0  CM 
0  CM 

0  1/CM**3 
0  1/CM*^3 
0  EV 
0  CM 
0  CM 


0  CM**2 
0  SEC 
0  SEC 

0  CRANK-NICOLSON  FACTOR 
0  SEC 
0  SEC 
0  SEC 

0  WATT/CM/DEG.  KEL. 

0  WATT/CM/DEG.  KEL. 

0  JOULE/G/DEG.  KEL. 

0  G/CM**3 


C 

C  READ  INITIAL  STATE  FILE  LF 
C 

INCLUDE  RLF 


C 

INCLUDE  LFFORM 
C 

lfread=lfrtem 

C 

1  =  1 

WRITE  (6*60)  I 

60  FORMAT  (Ill**  1=1*  STATE  LISTING  ONLY • ) 


Fig.  B.2.  (Continued)  Listing  for  Program  DS 
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114 

115 

116 

117 

118 

119 

120 

121 

122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 

144 

145 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 

161 

162 

163 

164 

165 

166 

167 

168 

169 

170 


70 


READ  (5*70)  I 
FORMAT  (Ill) 

IF  ( I .EQ. 1 )  60  TO  280 


C 

c  update  control  and  simulation  parameters  ONLY 
1=1 

WRITE  (6*80)  I 

80  FORMAT  (lilt*  1  =  1*  UPDATE  CONT.  AND  SIMUL.  PARS*  ONLY*) 

READ  (5*70)  I 
IF  (I*EQ.l)  GO  TO  170 
C 

90  CONTINUE 
C 

C  WRITE-READ  DIODE  SPEC.  PARS. 

C  WRITE  ON  UNIT  6  AND  READ  NEW  VALUES 
LF=6 
LRP=1 

INCLUDE  DSPECP 
INCLUDE  DSPECF 
1  =  1 
C 

C  EVALUATE  AND  TEST  VALIDITY  OF  DEPLETION  REGION 
C 

C  EVALUATE  INTRINSIC  CARRIER  CONCENTRATION 

CALL  INTRI  ( CBEDS *  VbEDS  #  ENGAP  *  TEMPO  *  CAR I NT ) 

C 

CALL  DEPL  ( 0  *  ACCEPT  * DONOR  * CAR I NT  *  XMET  *DEPN*DEPP*  DEPW  *  XDEPN*  XOEPP  *  V 
1DBIAN*DIEL*TEMP0) 

C 

WRITE  (6* 100 )  XMET*XL*DEPN*DEPP*XDEPN*XDEPP*VDBIAN*CARINT 
100  FORMAT  (*1*****  DEPLETION  REGION  CHARACTERISTICS  //Dll . 4  * •  X 

1MET*  LOCATION  OF  MET.  JUNCTION*  CM*/D11.4**  XL*  LOCATION  OF  P-CONT 
2ACT*  CM*/D11.4**  DEPN*  DEPL  REGION  WIDTH  ON  N-SIDE*  CM*/D11.4,*  DE 
3PP*  DEPL.  REGION  WIDTH  ON  P-SIDE*  CM*/D11.4**  XDEPN*  DEPL.  REG.  BO 
4UND.  ON  N-SIDE*  CM*/D11.4**  XDEPP*  DEPL.  REG.  BOUND.  ON  P-SIOE*  CM 
5f /Dll .4  * •  VDBIAN*  BUILT-IN  VOLTAGE*  VOLTS* / *  Dll • 4  * •  CARINT*  INTRIN 
6SIC  CAR.  CONC.*  1/CM**3*  * // ) 

IF  (XDEPN.LT. 0.0)  GO  TO  110 
IF  (XDEPP. GT. XL)  GO  TO  110 

GO  TO  130 

110  WRITE  (6*120) 

120  FORMAT  (/*2(*  *****  INVALID  DIODE  DESIGN  ♦♦♦***/)./*  EITHER  XDEPN< 

10.0  OR  XDEPP>XLf // ) 

C  TERM.  XQT*  OR  READ  NEW  DATA  SET 
C 

GO  TO  20 
C 

130  CONTINUE 

C 

C  UPDATE  DIODE  AND/OR  PHYSICAL  PARS. 

1  =  1 

WRITE  (6*140)  I 

140  FORMAT  (Ill**  1=1*  UPDATE  DIODE  PARS.*) 

READ  (5*70)  I 
IF  (I.EQ.l)  GO  TO  90 
C 
C 


Fig.  B.2.  (Continued)  Listing  for  Program  DS 
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171 

172 

173 

174 

175 

176 

177 

178 

179 

180 

181 

182 

183 

184 

185 

186 

187 

188 

189 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199 

200 

201 

202 

203 

204 

205 

206 

207 

208 

209 

210 

211 

212 

213 

214 

215 

216 

217 

218 

219 

220 

221 

222 

223 

224 

225 

226 

227 


C  READ  DIFFERENT  FILE  OR  UPDATE  THIS  FILE  ? 

1=1 

WRITE  (6*150)  I 

150  FORMAT  (Ill**  1=1  READ  DIFFERENT  STATE  FILE’) 

READ  (5*70)  I 
IF  (I.EQ.l)  60  TO  20 
C 

C  GENERATE  APPROXIMATE  INITIAL  STATE 
1=1 

WRITE  (6*160)  I 

160  FORMAT  (Ill**  1=1  GEN.  APPROX.  INIT.  STATE') 

READ  (5.70)  I 
IF  (I.NE.l)  60  TO  190 
C 
C 

CALL  IST6  (P*  ACCEPT .DONOR*  XMET *XL*  XDEPN. XD 

1EPP* TEMPO. XXN.DXM.DOPN.HOL.ELE.E.V* TEMP. VDBISG. IDATE. ITIME.DIEL.CA 

2RINT ) 

C 

LFREAD=0 

C 

170  CONTINUE 
C 

1=1 

WRITE  (6.180)  I 

180  FORMAT  (Ill.*  1=1.  UPDATE  CONT.  PARS.') 

READ  (5.70)  I 
IF  (I.NE.l)  60  TO  210 
C 

190  CONTINUE 
C 

C  WRITE-READ  CONTROL  PARS. 

C  WRITE  ON  UNIT  6  AND  READ  NEW  VALUES 
LF=6 
LRP=1 

INCLUDE  DCONTP 
INCLUDE  DCONTF 
C 

1=1 

WRITE  (6*200)  I 

200  FORMAT  (/.Ill.'  1=1*  UPDATE  CONT.  PARS.') 

READ  (5.70)  I 
IF  (I.EQ.l)  GO  TO  190 
C 

210  CONTINUE 
C 

1=1 

WRITE  (6*220)  I 

220  FORMAT  (Ill*'  1=1*  UPDATE  MODEL  PARS') 

READ  (5*70)  I 
IF  (I.NE.l)  60  TO  240 
C 

230  CONTINUE 
C 

C  WRITE-READ  SIMULATION  PARAMETERS 
C  WRITE  ON  UNIT  6  AND  READ  NEW  VALUES 
LF=6 


Fig.  B.2.  (Continued)  Listing  for  Program  DS 
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228 

229 

230 

231 

232 

233 

234 

235 

236 

237 

238 

239 

240 

241 

242 

243 

244 

245 

246 

247 

248 

249 

250 

251 

252 

253 

254 

255 

256 

257 

258 

259 

260 

261 

262 

263 

264 

265 

266 

267 

268 

269 

270 

271 

272 

273 

274 

275 

276 

277 

278 

279 

280 

281 

282 

283 

284 


o  o 


LRP=1 

INCLUDE  DSIMP 
INCLUDE  DSIMPF 


1=1 

WRITE  (6*220)  I 
READ  (5*70)  I 
IF  ( I .  EQ.  1 )  60  TO  230 
C 

240  CONTINUE 
1=1 

WRITE  (6*180)  I 
READ  (5*70)  I 
IF  (I.EO.l)  60  TO  190 
C 

1  =  1 

WRITE  (6*250)  I 

250  FORMAT  ( 111  *  •  1=1*  READ  DIFF.  STATE  FILE’) 

READ  (5*70)  I 
IF  (l.EQ.l)  60  TO  20 
C 

LF=U 

WRITE  (6*260)  LF 

260  FORMAT  (Ill*’  LF*  FILE  FOR  NEW  ST.*  0  -  TRANSFER  FILE  ONLY’) 
READ  (5*70)  LF 
LFSTOR=LF 

IF  (LF.EQ.O)  60  TO  270 
C 

C  WRITE  VALUES  INTO  DATA  FILE  LF 
INCLUDE  WLF 
C 

270  CONTINUE 
C 

C  WRITE  STATE  TRANSFER  FILE  10  FOR  COMP 
LF=10 

INCLUDE  WLF 
1  =  1 
c 

280  CONTINUE 
C 

C  LIST  INITIAL  STATE  PARAMETERS 
1=1 

WRITE  (6*290)  I 

290  FORMAT  (Ill*’  1=1*  STATE  PARAMETER  LIST’) 

READ  (5*70)  I 
IF  (I.NE.l)  60  TO  380 
C 

C  ASSIGN  OUTPUT  SCRATCH  DATA  FILE  9. 

CALL  ERTRAN  (6* ’OBRKPT  9  .  •> 

CALL  ERTRAN  (6*'I3FREE  9.  .  ’) 

CALL  ERTRAN  (6*»0CAT  9(+l>.  .  •) 

CALL  ERTRAN  (6*’0AS6*AX  9.  .  •) 

C 

RCMP=136 

WRITE  (6*300)  RCMP 

300  FORMAT  (Ill.'  RCMP.  SEL.  PRINTER  FOR  STATE  LIST1N6* ) 


Fig.  B.2.  (Continued)  Listing  for  Program  DS 
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265 

266 

267 

268 

289 

290 

291 

292 

293 

294 

295 

296 

297 

298 

299 

300 

301 

302 

303 

304 

305 

306 

307 

308 

309 

310 

311 

312 

313 

314 

315 

316 

317 

318 

319 

320 

321 

322 

323 

324 

325 

326 

327 

328 

329 

330 

331 

332 

333 

334 

335 

336 

337 

338 

339 

340 

341 


READ  (5*70)  RCMP 
C 

C  WRITE  DIODE  SPEC.*  CONT • * AND  SIM.  PARS.  ON  UNIT  9 
LF=9 
LRP=0 
C 

WRITE  (9*310)  IDATE*ITIME 

310  FORMAT  ( • 1***************  DS  #*****#♦♦*****• *T98*  *DATE  **A6*3X**TI 
1ME  *  *  A6* / ) 

C 

INCLUDE  DSPECP 
INCLUDE  DCONTP 
INCLUDE  DSIMP 
1  =  1 
C 

C  DEPENDENT  VARIABLE  LIST 
C 

1  =  1 

WRITE  (6*320)  I 

320  FORMAT  (Ill**  1=1*  DEPENDENT  VARIABLE  LIST* ) 

READ  (5*70)  I 
IF  (I.NE.l)  GO  TO  390 
C 

C  WRITE  STATE  PROFILE 
JJ=P-1 

DO  330  J=1*JJ 
DXM(J)=XXN(J+1)-XXN(J) 

330  CONTINUE 

DXM (P ) =DXM ( JJ ) 

C 

IF (LPINT • LE. 0 ) LPINT=1 

1  =  1 

K=51 

340  CONTINUE 

IF(1.GT.P)I=P 

K=K+1 

IF  (K.LT.52)  GO  TO  360 
K=1 

WRITE  (9*350)  IDATE*ITImE 

350  FORMAT  ( * l***************  DS  **♦****♦****♦*♦•# T98 *• DATE  **A6*3X**T 
1 IME  *  *A6*//*  *T6* • I • *T13*  * XXN( I ) *  * T25* *DXN( I ) *  *T37*  f  DOPN ( I ) • *T49*  *H 
20L ( I ) *  *  T61 * • ELE ( I ) *  *  T73  * • E ( I ) • * T85 *  *  V ( I ) *  *  T97 . • TEMP ( I ) • * / ) 

360  WRITE  (9*370)  I  * XXN ( I ) * DXM ( I ) * DOPN ( I ) *HOL ( I ) * ELE ( I ) * E ( I ) *  V ( I ) *  TEMP 
1(1) 

370  FORMAT  ( T2* 15* T9* 8E12. 5) 

IF  (I.GE.P)  GO  TO  390 
I=I+LPINT 
60  TO  340 
C 

380  CONTINUE 
C 

IF  (RCMP.EQ.O)  GO  TO  400 
C 

390  CONTINUE 
C 

C  SEND  STATE  LISTING  TO  DESIGNATED  PRINTER 
CALL  CLOSE  (9*0) 


Fig.  B.2.  (Continued)  Listing  for  Program  DS 
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342 

343 

344 

345 

346 

347 

346 

349 

350 

351 

352 

353 

354 

355 

356 

357 

358 

359 

360 

361 

362 

363 

364 

365 

366 

367 

368 

369 

370 

371 

372 

373 

374 

375 

376 

377 

378 

379 


o  o  o 


CALL  ERTRAN  (6*  'BFREE  9.  .  •) 

IF  (RCMP.EQ.100)  CALL  ERTRAN  (6*'0SYM  9.**PR  .  •) 

IF  (RCMP.EQ.101)  CALL  ERTRAN  (6*'®SYM  9.**RCMP01  .  •) 

IF  (RCMP.EQ.102)  CALL  ERTRAN  (6*’I3SYM  9...RCMP02  .  »> 

IF  (RCMP.EQ.136)  CALL  ERTRAN  (6*'8SYM  9...RCMP36  .  •> 

C 

400  CONTINUE 
C 

1=1 

WRITE  (6*410)  I 

410  FORMAT  (Ill*'  1=1*  INITIATE  SIMULATION') 

READ  (5*70)  I 
IF  (I.NE.l)  STOP 


FREE  RELAVENT  FILES  PRIOR  TO  REMOTE  START  OF  COMP 
CALL  ERTRAN  (6*'UFREE  DSA.  .  •) 

CALL  ERTRAN  (6*'0FREE  C.  .  •) 

C 

CALL  ERTRAN  (6*'0FREE  7.  .  •) 

CALL  ERTRAN  (6*  '8FREE  8.  .  ') 

CALL  ERTRAN  (6*'8FREE  10.  .  ') 

CALL  ERTRAN  (6*'8FREE  11.  .  ') 

CALL  ERTRAN  (6*'BFREE  12.  .  ') 

CALL  ERTRAN  (6* '8FREE  13.  .  •) 

C 

C  DESIGNATE  PRINTER  FOR  COMP  THROUGH  REMOTE  START 

IF  (RCMPU.EQ. 100)  CALL  ERTRAN  (6*'8START  SB*DSA/J/V.SCOMPA *  100 
1) 

IF  (RCMPD.EQ.101)  CALL  ERTRAN  (6*'8START  SB*DSA/J/V.SCOMPA* 101 

*  IF  (RCMPB.EO. 102)  CALL  ERTRAN  (6*'8START  SB*OSA/J/V.SCOMPA* 102 

AIF  (RCMPU.EQ .136)  CALL  ERTRAN  (6*'0START  SB*DSA/J/V.SCOMPA* 136 
1) 


STOP 

END 


Fig.  B.2.  (Continued)  Listing  for  Program  DS 
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1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 


RLF  PROC 

READ  ( LF ’ 1 A 1 0 )  NSF  * T .  TMAX * RCMPB . P . LNORC . TL INC . TS INC  » LCS . LSCS . LSCSP 

II. LCSPI.LFREAD.LFSTOR.NTYBND.NTHOEP.NCS.IDATE.  ITIME*  IBLANK  .IBLANK. 
2IBLANK. IBLANK. IBLANK. IBLANK. IBLANK. IBLANK. IBLANK. IBLANK  ,  . 

READ  ( LF  *  1 420 )  DI EL  *  TEMPO  .CARINT  . OONOR  *  ACCEPT  *  XMET «  XL  *  T AUN  .  T  AUP  *  AR 
1EAD*DT *  TTIME » TIME. THETA. VDB I .DX.DEPN.DEPP  »DEPW . XOEPN. XDEPP.  VDB I AN. 
2 VDB I SG  *  CURTOT . EXTCR I * FDTMUL  »  VDCOMP » CBEDS  *  VBEDS » ENGAP  *  THCOND *  SPHE AT 
3 » DENST Y  . A I TS . XDT *  XHT . THCONH . DBLANK . DBL ANK * OBL ANK * DBL ANK . DBL ANK  » DBL 
4 ANK . DBLANK . DBLANK  » DBLANK  *  OBLANK 
c 

READ  (LF.1420)  (XXN( I ) *DOPN( I ) #HOL < I ) » ELE ( I > *E(I ) * V(I > » TEMP (I ) » 1=1 
1»P) 

C 

IF  (NCS.NE.O)  READ  (LF*1420)  (CSTIME ( I ) • 1=1 *NCS> 

C 

REWIND  LF 
C 

END 

C 

WLF  PROC 

WRITE  (LF • 1410 )  NSF » T , TMAX . RCMPB » P . LNORC , TLINC . TSI NC  » LCS . LSCS . LSCS 
1PI  *LCSP1 *LFREAD*LFSTOR*NTYBND*NTHDEP»NCS* IDATE*ITIME* I BLANK  *  I BLANK 
Zt IBLANK  * 1BLANK* 1 BLANK  » I BLANK  * IBLANK  > IBLANK* IBLANKr I BLANK 

WRITE  ( LF  *  1420 )  DIEL • TEMPO  *  C AR INT » DONOR  *  ACCEPT  *  XMET »  XL  #  T  AUN  *  T  AUP  *  A 
IRE  AD  •  DT  *  TT IME » T IME » THETA  *  VDB I . DX • DEPN . DEPP  *  DEPW . XDEPN »  XDEPP » VOB I AN 

2  *  VDB1SG#CURT0T » EXTCRI * FDTMUL. VDCOMP. CBEDS .VBEDS* ENGAP »THCOND» SPHE A 

3T . DENST Y .AITS. XDT . XHT . THCONH . DBLANK . DBLANK . DBLANK . DBLANK . DBLANK . DB 
4LANK . DBLANK . DBLANK  *  DBLANK . DBLANK 

WRITE  (LF .  1420 )  (XXN(  I  >  »DOPN(  I )  .HOL  ( I )  *ELE  (D.E(I).V(I).  TEMPI  I )  .  1  = 
11. P) 

IF  (NCS.NE.O)  WRITE  (LF.1420)  (CSTIME( I ) » 1=1 *NCS) 

C 

END  FILE  LF 
REWIND  LF 
C 

END 

C 

LFFORM  PROC 
C 

C  DATA  FILE  READ-WRITE  FORMATS 
1410  FORMAT  (130) 

1420  FORMAT  (D30.18) 

C 

END 

C 

DSPECP  PROC 
C 

WRITE  (LF.1430) 

WRITE  (LF. 1440 )  DONOR 
IF  (LRP.EQ.l)  READ  (5.1450)  DONOR 
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57 

WRITE  (LF » 1460)  ACCEPT 

58 

IF  (LRP.EO.l)  READ  (5.1450)  ACCEPT 

59 

WRITE  (LF » 1470)  XL 

60 

IF  (LRP.EQ.l)  READ  (5.1450)  XL 

61 

WRITE  (LF » 1480 >  XMET 

62 

IF  (LRP.EQ.l)  READ  (5.1450)  XMET 

63 

WRITE  (LF . 1490)  P 

64 

IF  (LRP.EQ.l)  REAO  (5.1550)  P 

65 

WRITE  (LF.1500)  cbeds 

66 

IF  (LRP.EQ.l)  READ  (5.1450)  CBEDS 

67 

WRITE  (LF. 1510)  VBEDS 

68 

IF  (LRP.EQ.l)  READ  (5.1450)  VBEDS 

69 

WRITE  (LF . 1520)  ENGAP 

70 

IF  (LRP.EQ.l)  REAO  (5.1450)  ENGAP 

71 

WRITE  (LF . 1530 >  TEMPO 

72 

IF  (LRP.EQ.l)  READ  (5.1450)  TEMPO 

73 

WRITE  (LF. 1540)  DIEL 

74 

IF  (LRP.EQ.l)  READ  (5.1450)  OIEL 

75 

C 

76 

END 

77 

C 

78 

DSPECF  PROC 

79 

C 

FORMAT  (•  DIODE  STRUCTURE  AND  PHYSICAL  PARAMETERS*/) 

80 

1430 

81 

1440 

FORMAT  1011. 4.'  DONOR.  N-TYPE  IMP.  CONC . . 1/CM**3* ) 

82 

1450 

FORMAT  (011.4) 

83 

1460 

FORMAT  (Dll. 4.*  ACCEPT.  P-TYPE  IMP.  CONC..  1/CM**3*) 

84 

1470 

FORMAT  (Dll. 4.*  XL.  LOCATION  OF  P-CONTACT.  CM*) 

85 

1480 

FORMAT  (Dll. 4.*  XMET.  LOCATION  OF  MET.  JUNCT . .  CM') 

86 

1490 

FORMAT  (111.*  P.  NUMBER  OF  N-NODES') 

87 

1500 

FORMAT  (Dll. 4,'  CBEDS.  COND.  BAND  EFFECTIVE  DEN.  STATES.  1/CM**3») 

88  • 

1510 

FORMAT  (011.4.*  VBEDS.  VAL.  BAND  EFFECTIVE  DEN.  STATES.  1/CM**3*) 

89 

1520 

FORMAT  (Dll. 4.*  ENGAP.  ENERGY  GAP.  EV*> 

90 

1530 

FORMAT  (011.4.*  TEMPO.  INITIAL  TEMP..  DEG.  KEL.*> 

91 

1540 

FORMAT  (Dll. 4.'  DIEL.  DIELECTRIC  CONSTANT*) 

92 

1550 

FORMAT  (Ill) 

93 

C 

94 

END 

95 

C 

96 

DCONTP  PROC 

97 

c 

98 

WRITE  (LF. 1560) 

99 

WRITE  (LF. 1570 )  NSF 

100 

IF  (LRP.EQ.l)  REAO  (5.1800)  NSF 

101 

WRITE  (LF. 1580)  CURTOT 

102 

IF  (LRP.EQ.l)  READ  (5.1810)  CURTOT 

103 

WRITE  (LF.1590)  NTYBND 

104 

IF  (LRP.EQ.l)  READ  (5.1800)  NTYBND 

105 

WRITE  (LF . 1600)  NTHDEP 

106 

IF  (LRP.EQ.l)  READ  (5.1800)  NTHDEP 

107 

WRITE  (LF. 1610)  RCMPB 

108 

. 

IF  (LRP.EQ.l)  READ  (5.1800)  RCMPB 

109 

WRITE  (LF . 1620)  TIME 

110 

IF  (LRP.EQ.l)  READ  (5.1810)  TIME 

111 

WRITE  (LF. 1630)  TTIME 

112 

IF  (LRP.EQ.l)  READ  (5.1810)  TTIME 

113 

WRITE  (LF.1640)  DT 

Fig.  B.3. 


(Continued)  Listing  for  FORTRAN  Procedure  Collection  WRLF 


93 


114 

115 

116 
117 
116 

119 

120 
121 
12  2 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 

144 

145 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 
161 
162 

163 

164 

165 

166 

167 

168 

169 

170 


IF  (LRP.EQ.l)  READ  (5*1810)  DT 
WRITE  (LF *  1650 )  T 
IF  (LRP.EQ.l)  READ  (5*1800)  T 
WRITE  (LF  * 1660 )  TMAX 
IF  (LRP.EQ.l)  READ  (5*1800)  TMAX 
WRITE  (LF *  1670 )  FDTMUL 
IF  (LRP.EQ.l)  READ  (5*1810)  FDTMUL 
NGALFA=0 

I F ( LRP . EQ . 1 . AND . FDTMUL . LT . 0 . 5D0 )  NGALF A= 1 

IF (NGALFA.EQ. 1 )  CALL  DTMUL(20*TIME*TTIME*DT *T * TMAX * FDTMUL ) 

IF (NGALFA.EQ. 1 )  WRITE(LF* 1670)  FDTMUL 

IF(NGALFA.EQ.l)  READ (5* 1810 )  FDTMUL 

WRITE  (LF *  1680 )  TLINC 

IF  (LRP.EQ.l)  READ  (5*1800)  TLINC 

WRITE  (LF *  1690 )  TSINC 

IF  (LRP.EQ.l)  READ  (5*1800)  TSINC 

WRITE  (LF *  1700 )  LCS 

IF  (LRP.EQ.l)  READ  (5*1800)  LCS 

IF  (LCS.EQ.l)  WRITE  (LF*1710)  LCSPI 

IF  (LRP.EQ.l. AND. LCS.EQ.l)  READ  (5*1800)  LCSPI 

WRITE  (LF *  1720 )  LSCS 

IF  (LRP.EQ.l)  READ  (5*1800)  LSCS 

IF  (LSCS.EQ.l)  WRITE  <LF*1730)  LSCSPI 

IF  (LRP.EQ.l. AND. LSCS.EQ.l)  READ  (5*1800)  LSCSPI 

WRITE  (LF *  1740 )  NCS 

IF  (LRP.EQ.l)  READ  (5*1800)  NCS 

LRPT=0 

IF  (LRP.EQ* 1. AND.NCS.GT *0)  WRITE  (LF*1770)  LRPT 
IF  (LRP.EQ.l. AND. NCS. GT.O)  READ  (5*1800)  LRPT 
IF  (NCS.NE.O)  CALL  CST  (NCS* LF * LRPT * CSTIME ) 

WRITE  (LF *  1750 )  LFREAD 
WRITE  (LF* 1760 )  LFSTOR 
WRITE  (LF* 1780 )  IDATE 
WRITE  (LF *  1790 )  I TIME 


END 

C 

DCONTF  PROC 

C 

1560 

FORMAT 

1570 

FORMAT 

1580 

FORMAT 

1590 

FORMAT 

1600 

FORMAT 

1610 

FORMAT 

1620 

FORMAT 

1630 

FORMAT 

1640 

FORMAT 

1650 

FORMAT 

1660 

FORMAT 

1670 

FORMAT 

1680 

FORMAT 

1690 

FORMAT 

1700 

FORMAT 

1710 

FORMAT 

1720 

FORMAT 

1730 

FORMAT 

(/•  CONTROL  PARAMETERS**/) 

(Ill**  NSF *  NEW  ST.  FILE*) 

(Dll. 4**  CURTOT*  TERMINAL  CURRENT  DENSITY*) 

(Ill**  NTYBND*  TYPE  BND.  COND.  X=XL*  0-CUR .* 1-OHMIC • ) 
(Ill**  NTHDEP*  THERMAL  DEPENDENCE*  O-NO*  1-YES*) 
(Ill**  RCMPB*  SEL.  PRINTER  FOR  COMP.*) 

(Dll. 4**  INITIAL  TIME*  DEPN.  VAR.*) 

(Dll. 4**  TTIME *  MAX.  SIMULATION  TIME*  SEC*) 

(Dll. 4**  DT*  INITIAL  TIME  INCREMENT*  SEC*) 

(Ill**  T*  TIME  INC.  COUNTER*  INITIAL  VALUE*) 

(Ill**  TMAX*  MAX.  T*) 

(Dll. 4**  FDTMUL*  FORWARD  DT  MULTIPLICATION  FACTOR*) 
(Ill**  TLINC*  TIME  STEP  PRINT  INC.*) 

(Ill**  TSINC*  TIME  STEP  STORAGE  INC.*) 

(Ill**  LCS*  1-LIST  CROSS  SECTIONS*) 

(Ill**  LCSPI*  CROSS  SECTION  PRINT  INTERVAL  •) 

(Ill**  LSCS*  1-STORE  CROSS  SECTIONS*) 

(Ill**  LSCSPI*  CROSS  SECTION  STORE  INTERVAL*) 


Fig.  B.3. 
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171 

1740 

FORMAT 

(Ill** 

NCS.  NO.  OF  ADDITIONAL  CROSS  SECTIONS’) 

172 

1750 

FORMAT 

(Ill** 

LFREAD*  DATA  FILE  READ*) 

173 

1760 

FORMAT 

(Ill** 

LFSTOR.  DATA  FILE  WRITTEN*) 

174 

1770 

FORMAT 

(Ill** 

LRPT.  1  -  UPDATE  CROSS  SECTION  TIMES*) 

175 

1780 

FORMAT 

(All*  * 

IDATE.  STATE  GENERATION  DATE*) 

176 

1790 

FORMAT 

(All* • 

ITIME*  STATE  GENERATION  TIME*) 

177 

1800 

FORMAT 

(Ill) 

178 

1810 

FORMAT 

(D11.4) 

179 

C 

160 

END 

181 

C 

182 

DSIMP 

PROC 

183  C 

184 

185 

186 

187 

188 

189 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199 

200 
201 
202  • 

203 

204 

205 

206 
207 
206 

209 

210  C 

211  END 

212  C 


213 

DSIMPF 

PROC 

214 

215 

C 

1820 

FORMAT 

(/*•  D 

I ODE  MODEL  PARAMETERS  •/) 

216 

1830 

FORMAT 

(011.4* 

•  CARINT.  INTRINSIC  CAR.  CONC.*  1/CM**3*) 

217 

1840 

FORMAT 

(D11.4* 

•  AREAD.DIODE  AREA.  CM**2*) 

218 

1850 

FORMAT 

(D11.4* 

•  XDT.  DIODE  THICKNESS.  CM*) 

219 

1860 

FORMAT 

(Dll. 4* 

•  XHT.  HEADER  THICKNESS.  CM*) 

220 

1870 

FORMAT 

(Dll. 4* 

•  TAUN.  ELECTRON  LIFETIME.  SEC*) 

221 

1680 

FORMAT 

(D11.4* 

•  TAUP.  HOLE  LIFETIME.  SEC*) 

222 

1690 

FORMAT 

(Dll .4* 

•  AITS.  IONIZATION  TEMP  COEFF.*) 

223 

1900 

FORMAT 

(Dll .4* 

•  THCOND.  DIODE  THERMAL  COND..  WATT/CM/DEG. 

KEL. • ) 

224 

1910 

FORMAT 

(Dll. 4* 

♦  THCONH.  HEADER  THERMAL  COND.*  WATT/CM/DEG. 

KEL. * ) 

225 

1920 

FORMAT 

(D11.4* 

•  SPHEAT.  SPECIFIC  HEAT.  JOULE/G/DEG.  KEL.*) 

226 

1930 

FORMAT 

(D11.4* 

•  DENSTY.  G/CM**3' ) 

227 

1940 

FORMAT 

(Ill* • 

LNORC.  1  -  LIST  NORM  CONSTANTS') 

Fig.  B.3.  (Continued)  Listing  for  FORTRAN  Procedure  Collection  WRLF 


WRITE  (LF  * 1820 ) 

WRITE  (LF * 1830 )  CARINT 

WRITE  (LF  * 1840 )  AREAD 

IF  (LRP « EQ .  1 )  READ  (5*1970)  AREAD 

WRITE  (LF *  1850 )  XDT 

IF  (LRP.EQ.l)  READ  (5*1970)  XDT 

WRITE  (LF *  1860 )  XHT 

IF  (LRP.EQ.l)  READ  (5*1970)  XHT 

WRITE  (LF *  1870 )  TAUN 

IF  (LRP.EQ.l)  READ  (5*1970)  TAUN 

WRITE  ( LF  *  1880 )  TAUP 

IF  (LRP.EQ.l)  READ  (5*1970)  TAUP 

WRITE  (LF *  1890 )  AITS 

IF  (LRP.EQ.l)  READ  (5*1970)  AITS 

WRITE  (LF *  1900 )  THCOND 

IF  (LRP.EQ.l)  READ  (5*1970)  ThCOND 

WRITE  (LF *  1910 )  THCONH 

IF  (LRP.EQ.l)  READ  (5*1970)  THCONH 

WRITE  (LF *  1920 )  SPHEAT 

IF  (LRP.EQ.l)  READ  (5*1970)  SPHEAT 

WRITE  (LF *  1930 )  DENSTY 

IF  (LRP.EQ.l)  READ  (5*1970)  DENSTY 

WRITE  (LF *  1940 )  LNORC 

IF  (LRP.EQ.l)  READ  (5*1980)  LNORC 

WRITE  (LF *  1950 )  VDBIAN*  VDBISG*  VDCOMP*  VDBI 

IF  (LRP.EQ.l)  READ  (5*1960)  VDBI 
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226 

1950 

FORMAT 

229 

1PPR0X. 

230 

2ER* ) 

231 

1960 

FORMAT 

232 

1970 

FORMAT 

233 

1980 

FORMAT 

234 

C 

235 

END 

(/.030.18.*  VOBIAN. 
*/»D30. 18. *  VOCOMP# 

(030.18) 

(011.4) 

(111) 


ANALYTIC*  »/»D30.18» • 
VOT  FROM  COMP*./ *030 


VDRlSG.  IN.  ST  .A 
18.*  VDBI*  PARAMET 
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1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

1 

2 

3 

4 

5 

b 

7 

b 

9 

IU 

11 

12 

13 

14 

lb 

lo 

17 

1 

2 


SUBROUTINE  DTMUL (NTRIS*  TMlNt  TMAX  rDT *NMIN#NMAX » ALFA) 
C 

C  EVALUATES  OPTIMAL  GEOMETRIC  SERIES  FACTOR*  ALFA 

c 

IMPLICIT  DOUBLE  PRECISION  (A-H.0-2) 

N=NMAX-NMIN 

TA=(TMAX-TMIN)/OT 

DN=N 

NN-1000000 

IF(TA.LT. 1000000)  NN=TA 
IF(N.LE.NN)  GO  TO  5 
ALFAMA=0.5D0 
ALFAMI=1.000 
GO  TO  9 
5  CONTINUE 

ALFAMA=1.500 

ALFAMI=1.0D0 

9  CONTINUE 
C 

DO  15  K=1*NTRIS 

ALF  A= ( ALFAMA+ALFAMI ) /2 . 0D0 

DIF=(ALFA**DN-1.000)-TA*DLOG(ALFA) 

IF(DIF.GT. 0.000)  GO  TO  10 

ALFAM1=ALFA 

GO  TO  IS 

10  CONTINUE 
ALFAMA=ALFA 

15  CONTINUE 

C 

RETURN 

END 


(a)  Listing  for  DTMUL 


SUBROUTINE  CST (NCS* LF*LRP*CSTIME) 

C 

C  INPUT/OUTPUT  OF  SIMULATION  CROSS  SECTION  PRINT  AND/OR 
C  STORAGE  TIMtS 
C 

DOUBLE  PRECISION  CSTIMEC10) 

C 

c 

DO  10  1=1, NCS 

»R I it  <LF , 1457)  CSTIME ( I ) » I 

1457  FORMAT  lull .4 » '  CSTIMEl • , 12, • )  CROSS  SECTION  TIME,  SEC') 
IF(lKP.EQ.I)  READ(5,1“60)  CSTImE(I) 

1460  FORMAT (ull.4) 

10  CONTINUE 
C 

RETURN 

END 

(b)  Listing  for  CST 


NSTAB  50,1,1,1,1,1  61549 
ENO 

(c)  Listing  for  NTAB$ 


Fig.  B.4.  Listing  for  Subroutines  DTMUL,  CST  and  NTAB$ 
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procedures.  Source  listing  for  CST  is  presented  in  Fig.  B.4. 

Subroutine  NTAB$ 

NTAB$  is  written  in  assembler  language  and  is  used  by  the  FORTRAN 
V  input /output  routines  to  link  the  unit  designations  of  the  FORTRAN  V 
input /oluput  statements  to  a  hardware  device  and  external  files  on  that 
device.  NTAB$  source  listing  is  presented  in  Fig.  B.4. 

Subroutine  ISTG 

ISTG  generates  a  uniform  spacial  grid  according  to  the  diode  total 
length,  x^,  and  the  number  of  n-nodes,  P.  Next,  hole  and  electron  con¬ 
centrations,  electric  field  and  voltage  profiles  are  evaluated  over  the 
uniform  grid  through  analytic  formulation  for  thermal  equilibrium 
conditions  assuming  an  abrupt  junction  geometry.  Furthermore,  the 
temperature  profile  is  assumed  constant  and  assigned  the  diode  initial 
temperature  specified  in  calling  program  DS.  These  variable  profiles 
are  used  as  initial  conditions  by  DS  to  generate  a  simulation  initial 
state  corresponding  to  thermal  equilibrium.  Source  listing  for  ISTG 
is  presented  in  Fig.  B.5. 

Subroutine  THEQCA 

THEQCA  assumes  an  abrupt  junction  diode  configuration  and  evaluates 
thermal  equilibrium  hole  and  electron  concentration  values  for  the  acceptor 
and  donor  concentrations.  The  corresponding  built-in  voltage  is  also 
calculated.  THEQCA  source  listing  is  presented  in  Fig.  B.6. 

Subroutine  INTRI 

INTRI  evaluates  the  intrinsic  carrier  concentration.  INTRI  source 
listing  is  presented  in  Fig.  B.6. 

Subroutine  DEPL 

DEPL  assumes  an  abrupt  junction  diode  configuration.  It  evaluates 
the  respective  depletion  region  edges  with  respect  to  the  n-side  contact. 
The  two  depletion  widths  are  also  calculated  along  with  the  built-in 
voltage.  DEPL  source  listing  is  presented  in  Fig.  B.7. 

B.2  Program  Comp 

COMP  is  the  computer  program  implementation  of  the  nu¬ 
merical  diode  model  developed  in  Section  3.  Accordingly,  the  diode 
simulation  is  performed  by  COMP  and  is  most  conveniently  executed  in 
batch  mode  since  the  average  run  time  is  several  minutes.  COMP  obtains 
all  input  data  from  the  simulation  initial  state  data  file  10,  which  is 
designated  as  the  transfer  data  file  between  DS  and  COMP.  Although  it 
is  most  convenient  to  define  data  file  10  through  DS,  it  is  not  necessary 
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23 
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SUBROUTINE  ISTG  (NP# ACCEPT # DONOR #XMET *XL#X 
1DEPN  #  XOEPP  *  TEMPO # XN#DXM#  DOPN  *  HOL  #  ELE  # E # V # TEMP# VDBlSG#  I  DATE’  ITIME#D 
2IEL#CARINT) 

C 

C  SUB  ISTG  GENERATES  AN  ANALYTIC  THERMAL  EQUILIBRIUM 
C  INITIAL  STATE  WITH  UNIFORM  GRID. 

C 

IMPLICIT  DOUBLE  PRECISION A-H#0-Z) 

C 

DIMENSION  XN( 1 ) t  DXM( 1 ) §  DOPN(l)#  HOL ( 1 ) #  ELE ( 1 ) #  E(l>*  V(l>#  TEMP 
1(1) 

C 

C  SET  IDATE  AND  ITIME 

CALL  ERTRAN  (9#IDATE»ITIME) 

C 

C  PHYSICAL  CONSTANTS 
Q=1*6D-19 
B02=1.38lD-23 
PERM=Q.854D-14 
QKT=Q/BOZ/ TEMPO 
C 

C  EVALUATION  OF  THERMAL  EQUILIBRIUM  CARRIER  CONC.  VALUES 
TDON=DONOR/CARINT 
TACC=ACCEPT/CARINT 
C 

C  TEMPERATURE  DEPENDENCE  FOR  SUB.  ThEQCA  CONVEYED 

c  through  normalization  of  carrier  concs.  impurties 
C  ASSUMED  fully  ionized. 

CALL  THEQCA  (TDON#  TACC  #HOLXO#ELEXO#HOLXL  #ELEXL#  VDBI AN) 

C 

c  UNNORMALIZE  concs. 

HOLXO=HOLXO*CARlNT 

ELEX0=ELEX0*CARINT 

HOLXL=HOLXL*CARINT 

ELEXL=ELEXL*CARINT 

C 

C 

C  GENERATE  LINEAR  GRID  AND  ABRUPT  IMPURITY  PROFILE 
NPM1=NP-1 
XN(1)=0.0 
DOPN(l)=DONOR 
DXN=XL/NPM1 
DO  40  K=2#NP 
XN(K)=XN(K-1)+DXN 
IF  (XN(K).GT.XMET)  GO  TO  20 
DOPN(K)=DONOR 
GO  TO  30 
20  CONTINUE 

DOPN(K)=-ACCEPT 
30  CONTINUE 

DXM(K-1)=XN(K)-XN(K-1) 

40  CONTINUE 

XN(NP)=XL 
C 

C  GENERATE  ANALYTIC  ELECTRIC  FIELD 
TN=Q*DONOR/ ( PERM*DIEL ) 


Fig.  B.5.  Listing  for  Subroutine  ISTG 
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TP=Q*ACCEPT/(PERM*DIEL) 

EN=TN* ( XMET-XDEPN ) 

C 

00  80  K=1*NP 

IF  (XN(K) .GT .XDEPN)  GO  TO  50 
C  N-SIDE  BULK  REGION 
E<K)=0.0 
GO  TO  80 
50  CONTINUE 

IF  (XN(K) .GT.XMET)  GO  TO  60 
C  N-SIDE  DEPLETION  REGION 

E (K ) =TN* ( XN ( K ) -XDEPN ) 

GO  TO  80 
60  CONTINUE 

IF  ( XN (K ) • GT • XDEPP )  GO  TO  70 
C  P-SIDE  DEPLETION  REGION 

E ( K ) =EN-TP* ( XN ( K ) -XMET ) 

GO  TO  80 
70  CONTINUE 

C  P-SIDE  BULK  REGION 
E (K ) -0 • 0 
80  CONTINUE 

C 

C  EVALUATE  ANALYTICALLY:  HOLr  ELE#  V#  AND  INITIALIZE  TEMP 
C 

TA= ( XDEPN* *2 ) /2 • 0 
TB=XMET+DONOR/ACCEPT* ( XMET-XDEPN) 

TC=TN* ( ( 1 . O+ACCEPT/DONOR ) *XMET**2-XDEPN**2 ) /2 . 0 
C 

DO  120  K=1 • NP 
TEMP(K)=TEMPO 

IF  (XN(K) .GT. XDEPN)  GO  TO  90 
C  N-SIDE  BULK  REGION 
DOPN(K>=DONOR 
E(K)=0.0 
V(K)=0.0 
HOL(K)=HOLXO 
ELE(K)=ELEXO 
GO  TO  120 
90  CONTINUE 

IF  <XN<K) .GT.XMET)  GO  TO  100 
C  N-SIDE  DEPLETION  REGION 
DOPN(K)=DONOR 
E  <  K ) =TN* ( XN ( K ) -XDEPN ) 

V(K)=TN*( (XDEPN-XN(K)/2.0)*XN(K)-TA) 
HOL(K)=hOLXO*DEXP(-QKT*V(K) ) 
ELE(K)=ELEXO*DEXP(QKT»V(K) ) 

GO  TO  120 
100  CONTINUE 

IF  (XN(K) .GT. XDEPP)  GO  TO  110 
C  P-SIDE  DEPLETION  REGION 
DOPN(K)=-ACCEPT 
E ( K ) =EN-TP* ( XN ( K ) -XMET ) 
V(K)=TP*(XN(K)/2.0-TB)»XN(K)4*TC 
HOL(K)=HOLXO*DEXP(-GKT*V<K) ) 
ELE(K)=ELEXO»DEXP(QKT#V(K) ) 

GO  TO  120 


Fig.  B.5.  (Continued)  Listing  for  Subroutine  ISTG 

100 


114 

110 

CONTINUE 

115 

C  P-SI0E  bulk  region 

116 

DOPN(K>=-ACCEPT 

117 

E(K)=0.0 

116 

V(K)=V<K-1) 

119 

HOL(K)=HOLXL 

120 

ELE(K)=ELEXL 

121 

120 

CONTINUE 

122 

c 

123 

V0BISG=V<NP> 

124 

c 

125 

RETURN 

126 

END 

Fig.  B.5.  (Continued)  Listing  for  Subroutine  ISTG 
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SUBROUTINE  THEQC A ( DONOR * ACCEPT t HOLXO * ELEXO # HOLXL * 
lELEXLt VDBI AN) 

C 

c  SUB.  THEQCA  GENERATES  Thermal  EQUILIBRIUM  HOLE  AND 
C  ELECTRON  CONCENTRATION  FOR  THE  DONOR  AND  ACCEPTOR 
C  IMPURITY  LEVELS  RESPECTIVELY.  THE  CORRESPONDING  BUILT- 
C  IN  VOLTAGE  IS  ALSO  EVALUATED.  ALL  ARGUMENTS  ARE 
C  ASSUMED  APPROPRIATELY  NORMALIZED  BY  EITHER  INTRINSIC 
C  CAR.  CONC.  OR  THERMAL  VOLT.  CORRESPONDING  TO  SPECIFIED 
C  TEMPERATURE. 

C 

IMPLICIT  DOUBLE  PRECISION  (A-H#0-Z) 

C 

C  FUNCTION  *ROOT'  EVALUATES  MAJORITY  CAR.  CONC. 

DEFINE  ROOT ( T A ) =DABS (TA ) /2. ODO+DSQRT ( T A* 
1TA/4.0DQ+1.0D0) 

C 

C  EVALUATE  MAJORITY  CARRIER  CONC.  ON  N-SIDE 
ELEXO=ROOT (DONOR) 

C 

C  EVALUATE  MINORITY  CARRIER  CONC.  ON  N-SIDE 
HOLXO=1.0DO/ELEXO 
C 

C  EVALUATE  MAJORITY  CARRIER  CONC.  ON  P-SIDE 
HOLXL=RQOT( ACCEPT) 

C  EVALUATE  MINORITY  CARRIER  CONC.  ON  P-SIDE 
ELEXL-1 • ODO/HOLXL 
C 

C  EVALUATE  DIODE  BUILT-IN  VOLTAGE 
VDBI AN=-DLOG ( ELEXO/ELEXL  > 

C 

return 

END 


(a)  Listing  for  THEQCA 


SUBROUTINE  INTR I ( CBEDS  #  VBEDS  #  ENGAP  #  TEMP  *  CAR I NT ) 

SUB.  INTRI  COMPUTES  INTRINSIC  CAR.  CONC. 

CBEDS  -  COND.  BAND  EFFECTIVE  DENSITY  OF  STATES*  1/CM**3 
VBEDS  -  VALANCE  BAND  EFFICTIVE  DENSITY  OF  STATES#  1/CM**3 
ENGAP  -  ENERGY  GAP*  EV 

TEMP  -  TEMPERATURE*  DEG.  KEL. 

CARINT  -  INTRINSIC  CAR.  CONC.#  1/CM**3 

Q  -  UNIT  CHARGE#  COULOMBS 

BOZ  -  BOLTZMANN1 S  CONST.#  JOULES/DEG.  KEL. 

DOUBLE  PRECISION  CBEDS . VBEDS# ENGAP # TEMP # CARINT 
DOUBLE  PRECISION  Q*BOZ 

Q=1.6D-19 
BOZ=l • 381D-23 

CARINT=DSQRT(CBEDS*VBEDS)*DEXP<-ENGAP*Q/(TEMP*BOZ*2.000)) 

return 

END 


(b)  Listing  for  INTRI 


Fig.  B.6.  Listing  for  Subroutine  THEQCA  and  INTRI 
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13 

14 

lb 

16 

17 

16 

19 

20 

21 

22 

23 

24 

2b 

26 

27 

26 

29 

30 

31 

32 

33 

34 

3b 

3b 

37 

36 

39 

4U 

41 

42 

43 

44 

4b 

4b 

47 

46 

49 

50 

51 

52 

53 

54 

5b 

5b 


on  on  r>  n  o  noon 


SUBROUT 1 NE  OEPL (L» ACCEPT  * DONOR  .CARINT  *  XMET *  DEPN *  DEPP  *  DEPW . XDEPN . 
lXDEPP*VUdIAN*DIEL»TEMP) 


EVALUATES  DEPLETION  REGION  CHARACTERISTICS  THROUGH 
ANALYTIC  FORMULATION  FOR  AN  ABRUPT  JUNCTION  CONFIGURATION 

DOUBLE  PRECISION  ACCEPT. DONOR»CARINT*XMET*OIEL»TEMP 
DOUtlLE  PRECISION  DEPN  *  DEPP » OEPW » XDEPN  »  XDEPP  *  VDB I  AN 
DOUBLE  PRECISION  Q.b07*PERM 
DOUBLE  PRECISION  HOLXO*  ELEXO. HOLXL »ELEXL 
DOUBLE  PRECISION  TA.TR 
physical,  constants 

0=1.60-19  0  COULOMBS 

B0Z=1 .3blD-23  o  JOULES/DEG.  KEL. 

PERM=8.b54D-14  0  FARAOS/CM.  FREE  SPACE  DERM 

EVALUATE  DIODE  BUILT-IN  VOLTAGE*  VDBIAN 
TA=ACCEP'f/CARINT 
TB=D0NOH/CARINT 

CALL  THEOC A ( TH  *  T  A  *  HOLXO  *  ELEXO  *  HOLXL  *  ELEXL  *  VDB I AN ) 

V0B1AN=VDBIAN*B0Z*TEMP/G 

EVALUATION  OF  DEPLETION  REGION  BOUNDARIES 
!A=ACCtPT*DONOR 

TB=uABS(2.0U0*DIEL*PERM*VDBIAN/Q> 

DEPN= ( TU*ACCEPT/ (  TA+D0N0R*D0N0R ) ) **0 . 5 
DEPP=  <  Tb*UONOR/ ( TA+ACCEPT  *ACCEPT ) ) **0 . 5 
DEP«=DEPN+DEPP 
XDEPN=XMET-DEPN 

xdepp=xmet+depp 

c 

lF(L.NE.l)  RETURN 
C 

WRITE (9* 1001 ) 

1001  FORMAT ( • 1  *****  SUBROUTINE  DEPL  *****«// 

1»  SUB.  DATA*/) 

WRI IE (9* 1002)  ACCEPT 

1002  FORMAT (T2.D15.4.*  ACCEPT') 
wRI)E(9* 1003)  DONOR 

1003  FORMAT (T2*D15. 4. •  DONOR') 

WRI TE (9* 1004)  CARINT 

1004  FORMAT (12*015.4*'  CARINT') 

WRI TE(9* 100b)  XMET 

1005  FORMAT (T2*015.4*»  XMET') 

WRITE(9* 1006)  D1EL 

1006  FORMAT (T2*D15.4*»  DIEL') 

WRITE(9» 1007)  TEMP 

1007  F0RMAT(T2*D15.4* •  TEMP') 

WRITE<9*1006)  0 

1008  FORMAT ( T2* 015.4* •  O') 

WRI TE (9* 1009)  BOZ 

1009  F’ORMAT (T2*D15.4»»  30Z') 

WRI IE(9* 1010)  PERM 

1010  FORMAT (T2*D15.4»*  PERM') 


Fig.  B.7.  Listing  for  Subroutine  DEPL 
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WRITE (9*1011) 

1011  FORMAT (//•  SUB.  OUTPUT*/) 

WRITE (9* 1012)  VOBIAN 

1012  FORMAT (T2*D15.4*  *  VOBIAN*) 

WRITE (9* 1013)  DEPN 

1013  FORMAT (T2*015.4*  *  DEPN*) 

WRITE (9* 1014)  OEPP 

1014  FORMAT (T2*D15.4* •  DEPP1) 

WRITE (9* 1015)  OEPW 

1015  Format ( 12*015.4* •  oepw*) 

WRITL(9* 1016)  XDEPN 

1016  Format (T2*oi5.4t  *  xdepn*) 

WRIIE(9*1U17)  XOEPP 

1017  FORMAT  1 1  #015.4#  •  XOEPP*) 

*RI TE(9* 1016)  HuLXO*ELExO*HOLXL*ELEXL 
lUlft  FORMAT  U(T2*  030. 16*/)  > 

C 

C  ERRONEOUS  CALCULATION  TO  SUPPRESS  DIAGNOSTICS  IN 
C  RFOR 

TA=HOLXO<‘ELEXO/HOLXL/ELEXL 

C 

RETURN 

END 


Fig.  B. 7.  (Continued)  Listing  for  Subroutine  DEPL 
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as  long  as  the  simulation  state  data  format  shown  in  Table  B.l  is  main¬ 
tained.  COMP  is  designed  to  facilitate  an  arbitary  impurity  profile  and 
a  nonuniform  spacial  grid.  These  model  features  are  not  presently 
available,  however,  since  DS  is  not  capable  of  generating  appropriate 
simulation  initial  states.  Two  of  the  boundary  condition  systems  con¬ 
sidered  in  Section  3  are  available.  One,  the  current  boundary  condition 
system,  is  assumed  by  default.  The  other,  a  hybrid  boundary  condition 
system  must  be  specified.  In  conjunction  with  these  boundary  conditions, 
a  constant  current  excitation  is  used  by  COMP.  Temperature  may  be  included 
as  a  dependent  variable  on  an  optional  basis.  If  not  specified  as  a  de¬ 
pendent  variable,  the  temperature  profile  obtained  form  the  simulation 
initial  state  is  maintained  constant,  independent  of  time;  i.e.,  an  iso¬ 
thermal  simulation  is  performed.  The  mobilities  and  ionization  coefficients 
for  holes  and  electrons  are  evaluated  through  four  respective  subroutines 
which  are  all  formulated  for  silicon.  Simulations  for  a  different  type 
semiconductor  would  require  redefining  these  four  subroutines.  Output 
from  COMP  for  a  simulation  may  be  divided  into  three  catagories:  printer 
simulation  summary,  stored  simulation  summary  for  graphic  analysis,  and 
stored  simulation  final  state.  The  printer  and  stored  versions  of  the 
simulation  summary  contain  similar  information,  and  one,  or  the  other, 
or  both  may  be  requested.  In  either  case,  the  simulation  summary  contains 
diode  cross  sections  at  arbitrarily  specified  points  in  time  and  a  tran¬ 
sient  data  summary  acquired  by  sampling  transient  quantities  at  equal 
intervals  of  iteration  cycles.  An  example  of  the  printer  simulation 
summary  is  presented  in  Fig.  B.8  along  with  respective  symbol  definitions 
in  Tables  B.l  and  B.2.  The  simulation  final  state  is  stored  in  the  data 
file  specified  by  the  simulation  initial  state  and  is  equivalent  to  the 
simulation  initial  state  except  for  the  parameter  and  variable  values 
changed  by  the  simulation. 

A  flow  chart  for  COMP  is  presented  in  Fig.  B.9  and  the  source  listing 
for  COMP  is  presented  in  Fig.  B.10.  COMP  directly  or  indirectly  references 
sixteen  subroutines  which  are  briefly  described  below  and  the  hierarchy 
for  these  subroutines  is  shown  in  Fig.  B.ll. 

Subroutine  INTRI 

INTRI  is  described  in  Appendix  B.l. 

Subroutine  CST 

CST  is  described  in  Appendix  B.l. 

Subroutine  DTMUL 

DTMUL  is  described  in  Appendix  B.l. 

Subroutine  NTAB$ 

NTAB$  is  described  in  Appendix  B.l. 
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Fig.  B.8.  (Continued)  Simulation  Summary  Example 
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Fig.  B.8.  (Continued)  Simulation  Summary  Example 
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Fig.  B.8.  (Continued)  Simulation  Summary  Example 
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TABLE  B.2 


Name 

SYMBOL  DEFINITIONS  FOR  SIMULATION  SUMMARY 

Definition 

Diode  Cross  Section  Data: 


N 

N  or  M  node  number 

XXN 

N-node  positions 

DXN 

N-node  spacing 

DOPN 

Impurity  concentration 

HOL 

Hole  concentration 

ELE 

Electron  concentration 

E 

Electric  field 

V 

Voltage 

TEMP 

Temperature 

CURHOL 

Hole  current  component 

CURELE 

Electron  current  component 

CURDIS 

Displacement  current  component 

PIB 

Poisson  equation  imbalance 

Cl 

Intrinsic  carrier  concentration 

GS 

Thermal  generation-recombination 

GI 

Avalanche  ionization 

Transient  Data: 


T 

Time  step  number 

TIME 

Simulation  time 

DTIME 

Incremental  time  step 

DHOLM 

Maximum  incremental  change  in  hole  concentration 

DELEM 

Maximum  incremental  change  in  electron  concentration 
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TABLE  B.2  (Continued) 


Name 

Definition 

DEM 

Maximum  incremental  change  in  electric  field 

DTEMPM 

Maximum  incremental  change  in  temperature 

PIBM 

Maximum  Poisson  equation  imbalance 

PIVMIN 

Minimum  pivot  value  from  subroutine  BANDA3,  minus 
1.0 

TEMPM 

Maximum  temperature 

CIM 

Maximum  intrinsic  carrier  concentration 

QSGR 

Maximum  thermal  generation— recombination  value 

CDISM 

Maximum  displacement  current 

VDBIAS 

Diode  bias  voltage 
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Fig.  B.9.  Flow  Chart  for  Program  COMP 
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Fig.  B 


9.  (Continued)  Flow  Chart  for  Program  COMP 
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1 

2 

3 

4 

5 

6 

7 

6 

9 

10 

11 

12 

13 

14 

lb 

16 

17 

id 

19 

20 

21 

22 

23 

24 

25 

2b 

27 

26 

29 

30 

31 

32 

33 

34 

3b 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

46 

49 

50 

51 

52 

53 

54 

55 

5b 


C*****  COM P  ***** 

C 

C  SIMULATES  A  ONE-DIMENSIONAL  TWO  CONTACT  SEMICONDUCTOR 
C  DEVICE  FOR  CONSTANT  CURRENT  EXCITATION.  IMPURITY 
C  PROFILE  IS  ARBITRARY  EXCEPT  FOR  THE  SPECIFIED  TERMINAL 
C  MATERIAL  TYPES  (X=0#  N-TYPE  AND  X=XL#  P-TYPE)  AND 
C  TEMPERATURE  IS  OPTIONALLY  INCLUDED  AS  A  DEPENDENT 
C  VARIABLE.  MOBILITIES  ARE  IMPURITY#  E-FIELD#  AND 
C  TEMPERATURE  DEPENDENT I  WHEREAS#  IONIZATION  COEFFICIENTS 
C  ARE  E-FIELO#  AND  TEMPERATURE  DEPENDENT#  BOTH  BEING 
C  FORMULATED  FOR  SILICON. 

C 

C  INITIAL  STATE  VALUES  ARE  READ  FROM  DATA  FILE 
C  10  WHICH  CAN  BE  INTERACTIVELY  GENERATED  BY  PROGRAM 
C  DS.  COMP  IS  EXECUTED  IN  A  BATCH  MODE  AND  WRITES  THE 
C  THE  RESULTING  STATE  ON  THE  OUTPUT  DATA  FILE  SPECIFIED 
C  IN  DATA  FILE  10.  OPTIONALLY#  ADDITIONAL  DATA  IS 
C  WRITTEN  IN  uATA  FILES  7#  ANO  8. 

C 

C  TECH:  SINGLE  ITERATION  QUASILINEARIZATION 

C  UNKS:  E-FIELD#  HOLE  AND  ELECTRON  CONCENTRATIONS#  TEMPERATURE 
C  BNO:  X=U#  N-SIDE 

C  1)  TERMINAL  E-FIELD  EQUAL  ZERO 

C  2)  TERMINAL  MAJ.  CAR.  UlFF.  CUR.  EQUAL  TOTAL  CUR. 

C  3)  TERMINAL  TEMPERATURE  EQUAL  TEMPO 

C  X=AL#  P-SIDE 

C  1)  TERMINAL  TEMPERATURE  EQUAL  TEMPO 

C  2)  TEnMINAL  MAJ.  CAR.  DIFF.  CUR.  EQUAL  TOTAL  CUR. 

C  OR 

C  2)  THERMAL  EQUILIBRIUM  CAR.  CONCS.  (OHMIC  CONTACT) 

C  TIME:  GEOMETRIC  IN  •FDTMUL* (FDTMUL=1#  CONST.  TIME  STEP) 

C 

C 

IMPLICIT  DOUBLE  PRECISION  (A-H#0-Z) 

I NTEGER  P #  PM1 #  T #  TMAX #  RCMPB #  P4  # P4M8 
INTEGER  TLINC#TSINC 
C 

COMMON  /INTRIN/  C5EDS #  VbEDS #  ENGAP 

COMMON  /NORM/  XN# TN# CARN# EN# CURN# VN#RECN#RMOBN#DIFN# TEMPN 
COMMON  /PHYCON/  Q#BOZ#P£RM 

COMMON  /GIONN/  GIPNMM# GINNMM* GIENM#GITNM # GINM # GIPN# GIN# GIMN# GlNP # G 
1IPNPP#GINNPP#GIENP#GITNP 
COMMON  / JPNP/  CPNP#CPPNPM#CPPNPP#CPENP#CPTNP 
COMMON  / JNNP/  CNNP#CNNNPM#CNNNPP#CNENP#CNTNP 
COMMON  / JPNM/  CPNM #  CPPNMM #  CPPNMP #  CPENM #  CPTNM 
COMMON  / JNNM/  CNNM# CNNNMM#CNNNMP# CNENM# CNTNM 
COMMON  /TDATA/TIME#DT#DH0LM#DELEM#DEM#0TM#PIBM#PIVM1N# 

1TEMPM#  CIM#  QSGR#CDISM#  VDBI AS 

COMMON  /VARZXXN(lOl) #DXN(101) #DOPN(101) # HOL < 1 01 ) # ELE < 101 ) # E ( 101 )  # 
IV (101) #  TEMP (101) 

COMMON  /CURR/CURH0L(101) #CURELE(101) #CURDIS(101) 

COMMON  /PARM/PIB(101) #CI(101) #GS(101) #61(101) 

C 

DOUBLE  PRECISION  DXM(lOl) 

DOUbLE  PRECISION  HMOBdOi  )  #  EMOBdOl ) 

DOUBLE  PRECISION  ALFAP ( 101 ) # ALFAN ( 101 ) 


Fig.  B.10.  Listing  for  Program  COMP 
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57 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

96 

99 

100 

101 

102 

103 

104 

105 

10b 

107 

108 

109 

110 

111 

112 

113 


DOUdLE  PRECISION  A ( 404 # 12) , OELT (404) 

DOUdLE  PRECISION  CSTIME(99> 

C 

C  DOUdLE  PRECISION  B<404#12) #ERROR<404> 

C 

C 

OATA  PERM#BOZ#Q  /8.854D-4# 1. 3810-23* 1 .60-19/ 

C 

ABSOER ( h #  OERF ) =DS I GN ( 1 . 000  #  F  > »DERF 
C 

C  GENERATE  DATE  ANO  TIME 

CALL  ERTRAN  (9* IOATET # ITIMET) 

C 

C  INITIAL  STATE  DATA 
C 

C  ASSIGN  NEW  STATE  ANO  INITIAL  STATE  TRANSFER  OATA  FILES 
CALL  ERTRAN  (6#9L>ASG#AX  7.  .  •) 

CALL  EKT RAN  (6#9UASG#AX  8*  •  9 ) 

CALL  ERTRAN  (6#9fcASG#AX  10.  • 

CALL  ERTRAN  <6#9«ASG#AX  11.  .  •) 

CALL  ERTRAN  (6#»DASG#AX  12.  •  •> 

CALL  ERTRAN  (6#9OASG#AX  13.  .  •> 

C 

C  WRITE  OATE  AND  TIME  ON  OUTPUT  FILES  7  ANO  8 
mRITE  ( 7  #  1 0 )  IDATET # ITIMET 
WRITE  U#10>  IDATETfITIMET 
lu  FORMAT  (A6) 

C 

C  WRITE  ZERO  OATA  PT.  COUNT  ON  OF  8. 

WR I TE (8*15)  N 
lb  FORMAT ( 115) 

C 

C  READ  INITIAL  STATE  TRANSFER  FILE 
LF=10 

C  READ  UNIT  10 

INCLUOE  RLF 
INCLUDE  LFFORM 
1  =  1 

WRITE  (o#20)  ITIMET 

2o  FORMAT  (•!♦*♦*♦♦*♦**  COMP  ******♦*♦♦• #T98# fTIME  9*A6*/> 

C 

C  WRITE  DIODE  SPEC.#  CONT.#ANO  SIM.  PARS. 

LF=b  0  WRITE  ON  UNIT  6 

LRP=0  0  REAOS  INHIBITED 

C 

C  WRITE-READ  DIODE  SPEC.  PARS. 

C 

INCLUDE  DSPECP 
INCLUDE  DSPECF 
1  =  1 
C 

C  WRITE-READ  CONTROL  PARS. 

C 

INCLUDE  OCONTP 
INCLUDE  OCONTF 
1  =  1 
C 
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114 

115 

116 

117 

116 

119 

120 

121 

122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

136 

139 

140 

141 

142 

143 

144 

145 

146 

147 

146 

149 

150 

151 

152 

153 

154 

155 

156 

157 

156 

159 

160 

161 

162 

163 

164 

165 

166 

167 

166 

169 

170 


C  WRITE-READ  SIM*  PARS* 

C 

INCLUDE  OSIMP 
INCLUDE  OSIMPF 
1=1 
C 

C*********************J******«t***********^*******t** 

C  PRELIMINARY  COMPUTATIONS 
£*♦♦♦*♦♦****♦*** ****♦♦**♦**♦*♦♦****♦♦**♦*♦*♦♦***** 

C 

C  SET  NEW  DATE  AND  TIME 
IDATE=IUATET 
ITIME=1T1MET 
C 

C  GENERATE  NORMALIZATION  CONSTANTS 

CALL  INTRI  (CBEDS*VbEDS*ENGAP*  TEMPO* CAR INT > 

CALL  N0R2  (LNORC'DIEL* TEMPO* CARINT* XN*TN* CARM* EN* CUHN* VN#QECN* RrtOd 
IN *DIFN*  TEMPN) 

C 

C  NORMALIZE  REQUIRED  VALUES 
C 

C  ARRAY  NORMALIZATION 
00  iO  I=1*P 
XXN(I)=AXN(I)/XN 
UOPU ( I ) =UOPN ( I ) /C ARN 
ELE(l)=tLE(I)/CARN 
HOL(I)=HOL(I)/CaRN 
E(I)=E(I)/EN 
V(I)=V(I)/VN 
TEMPI  1 )=TEMP( I )/TEMPN 
io  CONTINUE 
C 

C  PARAMETER  NORMALIZATION 

TAUN=TAUN/TN 
TAUP=TAUP/TN 
VAPP-VAPP/VN 
VD8I=VUbI/VN 
OT=DT/TU 
DX=OX/XN 
TTIME=TTIME/TN 
TIME=T1ME/TN 
H0LM0=H0LM0/RM0hN 
ELEMO=ELEMO/RMOriN 
CURT0T=CURT0T/CURN 
ACCEPT=ACCEPT/CARN 
OONOR=DONOR/CARN 
XM£T=XMET/XN 
TEMPO=TEMPO/ TEMPN 
C 

DO  40  I=1*NCS 
CST1ME(I)=CSTIME<I)/TN 
40  CONTINUE 
C 

C  PR06RAM  CONSTANTS 
NNCS=1 
P4=R*4 
P4Mtt=P4-8 
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171 

172 

173 

174 

175 

176 

177 

176 

179 

160 

161 

182 

183 

184 

18b 

186 

187 

168 

189 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199 

POO 

P01 

P02 

P03 

P04 

POb 

P06 

P07 

P08 

P09 

P10 

Pll 

P12 

P13 

P14 

Plb 

P16 

P17 

Piti 

P19 

P20 

P21 

P22 

P23 

P24 

P25 

P26 

P27 


PMl=P-i 

RTHETA=1. 000/THETA 
RTH£OT=KTHETA/DT 
TEMPNM= TEMPO 
TEMPNP=TEMPO 
EXTCRI-1 #UE-6 
C 

C  ELIMINATION  OF  0  PRINT  ANO/OR  STORE  INTERVALS 
IF (LCSPI *EQ*  0 )  LCSPI  =  1 000000 
IF(LSCbPl.EO.O)  LSCSP I =1 000000 
IF ( TLINC  *EO*  0 )  TLINC  =  1000000 
IF(TSINC.EO.O)  TSINC-1 00U000 
C 

C  EVALUATION  OF  GRID  SPACIAL  INCREMENTS#  DXN<N>#  DXM(N) 
DO  aO  N— 1 #  PM1 
DXM ( N ) =AXN ( N+ 1 )—XXN(N) 

80  CONTINUE 

UXM(P)=0XM<PM1> 

C 

DO  90  N-2# PM1 

DXN(N)=0.5DU*<DXM(N-1>+DXM(N) ) 

90  CONTINUE 

DXN(1)=UXN(2> 

DXN(P)=uXN(PMl) 

C 

C  PRE-SIMULATION  PARTIAL  EVALUATION  OF  ENERGY  BALANCE 
C  EON*  PARAMETERS 

EB1T=TU*THC0ND/(DENSTY*SPHEAT»XN»XN) 

EB3=TN*  THCONM/ ( XDT*XHT*DtNST Y*SPHE AT  > 
EB4=TN*EN*CURN/ ( TLMPN*DENST Y*SPHEAT ) 

C 

CALL  CHECKC  CO) 

C 

C  LIPEST#  INITIAL  PROu.  ENTRY  STATUS 
LIPt.ST=i 
GO  TO  150 
C 

C****** ************************** **************** 

C  START  TIME  STEP  LOOP 

C************************************************ 

C 

100  CONTINUE 
C 

C  SOLVE  SYSTEM  OF  4*P-8  LINEAR  HEPTA  DIAGONAL  EQUATIONS 
CALL  BANDA3  <P4MB»  6. 12*404*12*  A .QELT.4  »  Pi VMIN) 

C 

C  EVALUATE  BOUNDARY  VALUES 
C 

C  X=0#  N-SIDE  CONTACT.  OELTd)-P(l)  .nELT(2)-N(l)  # 

C  DELT(3)-E<1> »  DELT (4) “TEMP ( 1 ) 

DELT(1)=0.0D0 
DELT ( 2 ) =DELT ( 6 ) +6NDB 
DELT(3)=O.ODO 
DELT (4) =0 • ODO 
C 

C  X=XL»  P-SIDE  CONTACT.  DELT <LP) -P(P) .  DELT (LN> -N ( N) . 

C  0ELT(LP“1I“E(P“1) .  OELT(4)=0.0 
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228 

229 

230 

231 

232 

233 

234 

235 

236 

237 

238 

239 

240 

241 

242 

243 

244 

245 
24b 
247 
24B 

249 

250 

251 

252 

253 

254 

255 

256 

257 

258 

259 

260 
261 
262 

263 

264 

265 

266 

267 

268 

269 

270 

271 

272 

273 

274 

275 

276 

277 

278 

279 

280 
281 
262 

283 

284 


LP=P4-3 

LN=LP*1 

LE=LN*1 

LT=LE*1 

OELT(LP) =0.000 
DELT(LN)=0.0D0 
UELT<Lt>=0.0D0 
DELTCLT) =0.000 


IF(NTYBNO.EO.O)  OELT CLP) =DELT ( LP-4 ) +BNDC 
C 

C  EVALUATE  NEm  VARIABLE  VALUES 
00  140  N=1 • P 
LP=1*4*(N-1> 

LN=1*LP 

LE=1*LN 

LT=1+LL 

C 

HOL ( N ) =HOL ( N  > ♦DELT ( LP ) 

ELE  (  N  )  =ELE  ( N )  ♦OE 4-T  (  LN ) 

E ( N ) =E ( N ) ♦DELT  C  LE ) 

TEMP(N)=TEMP(N)+UELT (LT) 

140  CONTINUE 
C 

H0LU)=H0L(2> 

IF(NTYBNJ.EO.O)  ELE(P)=ELE(PM1) 
E(P)=ElPMl) 

c 

C  INCREMENT  TIME  STEP  COUNTER  AND  TIME 
T=T*1 

TIME=TIME+0T 

DT=FDTMUL*DT 


C 

150  CONTINUE 
C 

C  EVALUATION  OF  PROG.  PARS.  REQUIRING  •TIME*  AND  fDTf 
RTHEDT=RTHET  A/DT 


C 

c  INITIALIZE  COEFF.  PARAMERTER  SUBS. 

C 

V ( 1 ) =0 • ODO 

CALL  CUR  (EXTCRI#DXM(1) tDOPN(l) fHOL(l) »H0L<2) # 

1ELE ( 1 ) *ELE (2) *E( 1 ) *  TEMPO » V ( 1 ) • 

IV (2) »HM0B(1) fEMOB(l) ) 

CURHOL ill =CPNP 
CURELE ( 1 ) =CNNP 

Q 

CALL  G10N  (AITS*0. 500*0. 5D0*E(1> *TEMPO*ALFAP(l) * 
lALFAN(i) ) 

C 

C  EVALUATION  OF  DERIVATIVE  COEFFICIENT  MATRIX 
OSR=0.0u0 
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*85 

OGR=O.ODO 

286 

00  lbO  N=2*PM1 

287 

LP=l+4*(N-2> 

288 

LN=LP*1 

289 

LE=LN+1 

290 

LT=LE*1 

291 

NM1=N-1 

292 

NP1=N*1 

293 

roxn=i.ooo/dxn<n> 

294 

TA=DXM(NM1)+DXM(N) 

295 

DXRNM=DXM(NM1)/TA 

296 

OXRNP=DxM(N)/TA 

297 

D0PM= ( OOPN ( N ) +DOPN ( NP 1 ) ) /2 . ODO 

298 

C 

299 

IF(NTHDEP.NE.l)  GO  TO  151 

300 

TEMPNM=TEMP(NM1) 

301 

TEMPNP=TEMP<N> 

302 

lDl  CONTINUE 

303 

C 

304 

C 

CALL  COcFF.  PARAMETLR  SUBS. 

305 

C 

306 

CALL  CICONC  <DXRNM*DXRNP*TEMPNM*TEMPNP*CIN*CITNm*CITNP> 

307 

C 

CALL  CUk  (EXTCRI*UXM(N) *00PM.H0L<N> *HOL(NPl> * 

308 

309 

1ELE(N) *ELE<NP1) *E(N) *TEKPNP*V(N> * 

310 

1V(NP1) »HMOB(N) *EM0B(N) > 

311 

CURHOL(n)=CPNP 

312 

CURELE(n)=CNNP 

313 

C 

314 

CALL  GSHR  (TAUP*TAUN*HOL(N) *ELF(N) * TEMPNM* TEMPNP* 

315 

1CIN*CITnM*CITNP*GSN*GSPN*GSNN*GSTNM*GSTNP) 

316 

Cl (N)-CIN 

317 

gs(n)=gsn 

318 

C 

319 

CALL  GION  <AITS*DXRNM*DXRNP*E<N) *TEMPNP* ALFAP(N) * 

320 

1ALFAN(N) ) 

321 

G1(N)=G1N 

322 

C 

323 

C 

COEFFS.  FOR  HOLE  CONTINUITY  EON.  AT  MAJOR  NODE  NO.  N 

324 

A(LP* 1I-0.0D0 

325 

A(LP»2)=-RDXN*CPPNMM-GIPNMM 

326 

A(LP*3)=-GINNMM 

327 

A  <  LP » 4 ) =-RDXN*CPENM-GIENM 

328 

A ( LP *  5) =-GSTNM-gITNM-RDXN*CPTNM 

329 

A ( LP * 6 ) =-GSPN-RDXN* ( C  PPNMP-CPPNPM ) -G I PN 

330 

A ( LP » 7 ) =-GSNN-G INN 

331 

A ( LP * 8 ) =+RDXN*CPENP-Gl ENP 

332 

A(LP»9)=-GSTNP-GITNP+RDXN*CPTNP 

333 

A(LP»10)=+RDXN*CPPNPP-GIPNPP 

334 

A(LP*11)=-GINNPP 

335 

A ( LP* 12 ) =GSN+RDXN* ( CPNM-CPNP ) +GIN 

336 

C 

337 

C 

COEFFS.  FOR  ELECTRON  CONTINUITY  EQN.  OF  MAJOR  NODE  NO. 

338 

A(LN*1)=-6IPNMM 

339 

A  C  LN  *  2 ) =+KDXN*CNNNMM-G I NNMM 

340 

a(ln*3)=-*-hdxn*cnenm-gienm 

341 

A(LN*4)=-GSTNM-GITNM+RDXN*CNTNM 
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342 

343 

344 

345 

346 

347 

348 

349 

350 

351 

352 

353 

354 

355 

356 

357 

358 

359 

360 

361 

362 

363 

364 

365 
36b 
367 
36B 

369 

370 

371 

372 

373 

374 

375 

376 

377 

378 

379 

380 

381 

382 

383 

384 

385 

386 

387 

388 

389 

390 

391 

392 

393 

394 

395 

396 

397 

398 


A(LN*5>=-GSPN-GIPN 

A (UN* 6) =-GSNN-ROXN* ( CNNNPM-CNNNMP ) -G I NN 

A ( LN  *  7 ) =-KDXN*CNENP-G 1 ENP 

A  <  LN  *  8  > =-GSTNP-G l TNP-RDXN*CNTNP 

A(LN*9)=“6IPNPP 

A  <  LN  *  1 0 ) =-RDXN*C NNNPP-G 1 NNPP 

A(LN*11)=0.000 

A(LN* 12) =GSN*R0XN* ( C  NNP-CNNM )*GIN 
C 

C  COEFFS.  FOR  POISSON'S  EQN.  AT  MAJOR  NODE  NO.  N 
A(LE*1>=U.0D0 
A(LE*2)=-1.000 
A(LE»3)=0.0D0 
A(LE*4)=-0XN(N) 

A(LE*5)=OXN(N) 

A(LE*6)=1.000 
A(LE*7>=0.000 
A (Lt* 8) =0.000 
A(LE»9>=0.000 
A (Lt* 10) =0.000 
A(LE*11)=0.0D0 

A(LE*12)=E(NMl)-E(N)+nX.\|(N)*(H0L(N)-ELE(N)+D0PN(N> ) 
C 

C  FINAL  UPOATt  OF  ENERGY  BALANCE  EQUATION  PARAMETERS 
TA=dttlT/uXM(N) 

EBl=TA/uXN(N> 

EB2=TA/OXN(N+l> 


C 

C  COEFFS.  FOR  ENERGY  BALANCES  EQN.  AT  MAJOR  NODE  <M> 

TA=EB4*OABS(E(N) > 

A(LT  *6) =Edl+EB2+EB3~TA* ( A8S0ER (CPNP*CPTNP) +ABSDER (CNNP*  CNTNP ) ) 

IF(NTHDtP.NE.l)  60  TO  158 


C 


A(LT*1)=0.000 

A(LT*2)=-EB1 

A (LT  *  3) =-TA*ABSDER ( CPNP . CPPNPM) 

A(LT*4)=-TA*ABSDER(CNNP*CNNNPM) 

TB=OABS ( CPNP ) *0485 ( CNNP ) 

A (LT  *  5) =-EB4*TB*ABSDER ( E (N>  *  1  * 0D0 ) -TA* ( ABSDER ( CPNP  *  CPENP ) + ABSOErt ( C 
1NNP*  CNLnP ) ) 

A ( LT  *  7 ) =-T A*ABSOER ( CPNP  *  CPPNPP ) 

A ( LT  *  8 ) =-TA* ABSUER ( CNNP . CNNNPP ) 

A(LT*9)=0.0D0 
A(LT*10)=-EB2 
A (LT  *  11 )=0«  0D0 

A(LT*12)=EB1*(TEMP(NM1)-TEMP(N))+EB2*(TEMP(NP1)-TEMP(N) )+FB3*(TEMP 

lO-TEKP(N) )*TA*Td 


C  PARTIAL  EVALUATION  OF  HEAT  STORAGE  AND  GENERATION  RATES 
OSR=QSR*OXM ( N ) *OELT ( LT+4 ) 

OGR=QGR+UXM ( N ) *DABS ( E ( N ) ) *TB 
GO  TO  169 


C 

158  CONTINUE 

A(LT*1)=0.000 
A (LT  *  2)=0 .000 
A (LT • 3) =0. 000 
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*99 

400 

401 

402 

403 

404 

405 

406 

407 

406 

409 

410 

411 

412 

413 

414 

415 

41b 

417 

416 

419 

42U 

421 

422 

423 

424 

425 

426 

427 

428 

429 

430 

431 

432 

433 

434 

43b 

436 

437 

436 

439 

440 

441 

442 

443 

444 

445 

446 

447 

448 

449 

450 

451 

452 

453 

454 

455 


no  oooooonoMO  on  on  on  noon 


A(LT»4)=0.0D0 

A(LT*5)=0.000 

C 

A(LT  *7) =0.000 
A(LT*8)=0.0D0 
A(LT*9)=0.0D0 
A(LT>10)=0.0D0 
A(LT»11)=0.0D0 
A (LT* 12) =0.000 
C 

139  CONTINUE 
loO  CONTINUE 
C 

C1(1)=CI(2) 

6S  ( 1 ) =6S ( 2 ) 

61(1) =61(2) 

C URHOL ( P ) =C URHOL ( PM 1 ) 
CURELE ( P ) =CURELE ( PM1 ) 
Cl (P)=C1 (PM1 ) 

6S(P) =GS (PM1 ) 

61 (P)=G1 (PM1 ) 


INCLUSION  OF  RTHEDT  TERM  IN  DERIVATIVE  COEFFICIENT 
MATRIX  AND  KTHETA  TtRM  IN  CONSTANT  ARRAY 


00  170  N=2»PM1 
LP=l+4*(N-2) 

LN=LP+1 

LT=LN+2 

HOLE  CONTINUITY  EON. 

A ( LP » 6 ) = A ( LP » 6 ) +R  THEDT 
A(LP*12)=A(LP*12)*RTHFTA 

ELECTRON  CONTINUITY  EQN. 

A ( LN  *  fa ) =A ( LN  *  6 ) +RTHEDT 
A(LN*12)=A(LN»l2)*RTHFTA 

ENER6Y  BALANCE  EON. 

A(LT’6)=A(LT  *6) ♦RTHEDT 
A(LT*12)=A(LT» 12) *RTHFTA 

70  CONTINUE 


INCLUSION  OF  BOUNDARY  CONDITIONS 


X=0*  N-SIDE  CONTACT 
E(0)=0 

CONTACT  MAJ.  CARRIER  CURRENT  EQUALS  TERMINAL  CURRENT 

BNDb=-DXM ( 1 ) /EMOB ( 1 ) *CURTOT/TEMP ( 1 )  +  ( ELE  <  2 ) “ELE ( 1 ) ) 

HOLE  CONTINUITY  EON. 

A(1>6)=a(1.6)+A(1'2) 

A(1»7)=a(1#7)+A(1»3> 

A(1»12)=A(1.12)-A(1»3) *6N0B 
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456 

457 

458 

459 

460 

461 

462 

463 

464 

46b 

46o 

467 

468 

469 

470 

471 

472 

473 

474 

47b 

476 

477 

478 

479 

480 

481 

482 

483 

484 

48b 

486 

487 

488 

4  89 

490 

491 

492 

493 

494 

495 

496 

497 

496 

499 

SOI) 

sol 

S02 

S03 

S04 

SQ5 

S06 

S07 

soa 

SQ9 

S10 

Sll 

S12 


c 

c  electron  continuity  eon. 

A(2'b>=A(2#5)+A(2tl) 

A(2'b)=A(2'6)+A(2’2) 

A(2#12)=A(2f 12)-A(2#2)*BN0B 
C 

C  X=XL#  P-SIDE  CONTACT 

C  NTYBNO— 0  -  CURRENT  UNO.  COND.f  NTYBND=1  -  OHMIC  8ND.  COND* 

IF  lNTYbNO*EQ# 1 )  60  TO  180 
C 

LP=4*P-11 

LN=LPU 

LE=i.N+l 

LT=lE«*1 

BNOC=-DXM ( PM1 ) /HMOB ( PM1 ) *CURTOT/TEMP <  PM1 > ♦ < -HOL ( P ) +HOL ( PM1 ) ) 

C 

C  HOLE  CONTINUITY  EON. 

A ( LP*  6) -A (LP*  6) +A (LP# 10 ) 

A(LP*7)=A<LP»7)+A(LP#11> 

A  (LP* 12) =A (LP» 12) “A (LP* 10 ) ♦BNDC 
C 

C  ELECTRON  CONTINUITY  EQN* 

A (LN#  5) =A (LNt  5) +A (LN#9) 

A(Ln»6)=a(LN#6)*A(LN*10) 

A(LN* 12)=A(LN#12)-A(LN»9)*BN0C 
C 

C  ENER6Y  BALANCE  EQN* 

A(lT*3)=A(LT*3)+A<LT#7> 

A(LT'4)=A(LTf4)+A<LT*A> 

A (LT  *  12) -A (LT* 12)*A (LT  »  7) ♦BNDC 
C 

lbG  CONTINUE 
C 

C  .EVALUATION  OF  DIOUE  BIAS  VOLTAGE 
V0B1AS=W(P)-V0BI 
C 

C  EVALUATE  HEAT  STORAGE  /  GENERATION  RATIO 
IF (NIHOEP.EQ. 1 )  QSGR=0SK/QGR/EB4/0T 
C 

(;.#*************♦******************************** 

C  DATA  OUTPUT 

O** ******************************************** 

C 

IF(T.GE.TMAX.OR.TlME.GE.TTIME.OR.LIPEST.EQ.l)  GO  TO  185 
IF  (NCS».EQ.O.OR.NNCS.GT.NCS>  GO  TO  190 

IF  ITIME.LT.CSTIME(NNCS) .OR.LCS.EQ. 0 . AND.LSCS.EQ. 0 )  GO  TO  190 
NNCb=NUCS+l 
C 

lo5  CONTINUE 
NCSTES=1 
GO  TO  200 
190  CONTINUE 
C 

IF  (T/Tl1NC*TLInC-T.EQ.0>  GO  TO  200 
IF  (T/TSINC*TSINC-T.NE.O.OR.LSCS.EQ.O>  GO  TO  100 
C 

200  CONTINUE 
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513 

514 

5 1 5 

516 

517 

518 

519 

520 

521 

522 

523 

524 

525 
52b 

527 

528 

529 

530 

531 

532 

533 

534 

535 

536 

537 
536 

539 
54U 

541 

542 

543 

544 

545 

540 

547 

548 

549 

550 

551 

552 

553 

554 

555 

556 

557 

558 

559 
56U 

561 

562 

563 

564 

565 

566 

567 

568 

569 


C 

C  DETERMINE  MAXIMUM  * DELTf  FOR  HOL*  ELEr  E*  TEMP 
DHOLM=O.ODO 
DELEM=O.ODO 
DEM-0  •  OliO 
OTM=O.OUU 
00  210  N— 1 f P 
LP=1+4*(N-1> 

LN=lP*1 

LE=i.Nn 

LT=LE+1 

IF  (DAbS(DELT(LP)).6T.DABS<DH0LM) )  DHOLM=DELT <LP> 

IF  (DAbSCUELT(LN) ) .GT.DAbS<DELFM) )  UELEM=DELT <LN) 

IF  (DAbS(DELT (LE) ) *GT •DAbS(DEM) )  DEM=DELT(LE) 

IF  (DAbb(UELT(LT)).6T.DABS(DTM))  DTM=DELT(LT) 

210  CONTINUE 
C 

C  EVALUATE  PU1SS0N  EQN.  IMBALANCE  AND  DISPLACEMENT  CURRENT 
PI6M-0.UU0 
TEMPM=0.000 
ClM-O.UuU 

CURD1S ( 1 ) =CURTOT-CUKHOL l 1 ) -CURELE ( 1 ) 

COIS»M~CUROIS(  1 ) 

DO  230  N=2*PM1 

PIB(N)=CE(N)-E(N-1) )/DXN(N)-HOL(N)^ELE(N)-DOPN(N) 

IF  (DAbSlPIB(N) ) .GT.DABS(PIRM) )  PIRM=PIb<N> 

CURuIS ( N ) =CURTOT -CURHOL ( N ) -CURELE ( N ) 

IF  (DABS(CURDIS(N) ) .GT.DmBS(CDISM) )  CDISM=CURDIS(N> 
IF(TEMP(N) .GT.TEMPM)  TEMPM=TEMP(N) 

IF(CI(N) .GT.CIM)  CIM=CI(N) 

230  CONTINUL 

CUR0IS(P)=CURDIS(PM1) 

C 

IF  inCSYES.NE.1)  GO  TO  2d0 
C 

C  WRITE  AND/OR  STORE  DIODE  CROSS  SECTIONS 

CALL  CSOP(ITIMEfT*TIMF*LCSrLCSPlfLSCS#LSCSPItP) 

C 

250  CONTINUE 
C 

C  BIAS  MINIMUM  PIVOT  VALUE 
PI VMIN^PI VMIN-1 • ODO 
C 

C  WRITE  AND/OR  STORE  TRANSIENT  DATA 

CALL  TNUAOP(T#TMAX* lTIMEr TLlNCt TSINCtLSCSf NCSYES) 

C 

LIP£ST=0 

NCSTES=0 

C 

IF(T*LT.TMAX. AND. TIME. LT.TTIME)  GO  TO  100 
C 

£*♦****♦***♦♦*♦***♦***♦♦*♦***♦****♦♦************ 

C  SIMULATION  COMPLETED 

C*** ************************ ******************** 

c 

C  WRITE  EOF'S  ON  DATA  FILES  7  AND  8 
END  FILE  7 
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*70 

END  FILE  6 

*71 

C 

*72 

C 

UNNORMAL I ZEO  VARIABLES  AND 

*73 

C 

*74 

C 

ARRAY  UNNORMALIZATION 

*75 

00  430  1=1 »P 

*76 

XXN(1)=XXN(1)*XN 

*77 

DOPN ( I ) =UOPN ( I ) *C  ARN 

*78 

ELE ( I ) =ELE ( I ) *C ARN 

*79 

HOL  ( I )  =HOL  CD  *CARN 

*80 

E(I)=E(I)*EN 

*81 

V(I)=V(1)*VN 

*82 

TEMP ( I ) =TEMP ( I ) *TEMPN 

*83 

330 

CONTINUE 

*84 

C 

*85 

C 

PARAMETER  UNNORMAL 1 Z AT I Ol 

*86 

TAUw=TAUN*TN 

*87 

TAUP=TAUP*TN 

*88 

VAPP=VAPP*VN 

*89 

VD61=V0dI*VN 

*90 

DT=uT*TN 

*91 

DX=OX*XN 

*92 

TTIME=TT IME*TN 

*93 

TIME=TIME*TN 

*94 

HOLMO=hOLMO*RMOBN 

*95 

ELEMO=ELEMO*RMOr»N 

*96 

CURTOT=CURTOT*CURN 

*97 

accept=accept*carn 

*98 

OONoK=OONOR*CARN 

*99 

xmet=xmet*xn 

*00 

TEMPO=TEMPO*TEMPN 

*01 

C 

*02 

DO  340  1=1. NCS 

*03 

CSTlME(l)=CSTIME(I)*TN 

*04 

340 

CONTINUE 

*05 

C 

*06 

C 

OEFINE  FINAL  OIODE  VOLTAGF 

*07 

C 

thermal  equilibrium  state) 

*08 

VDCOMP=VlP) 

*09 

C 

*10 

C 

WRITE  NEW  STATE  ON  FILE  NSF 

*11 

IF  (NSF.EQ.O)  GO  TO  350 

*12 

LF=NSF 

*13 

INCLUDE  WLF 

*14 

C 

*15 

350 

CONTINUE 

*16 

C 

*17 

c 

CHECK  FOR  OVERFLOW  AND  UNOEl 

*18 

CALL  CHECKC  (1) 

*19 

c 

*20 

END 
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i 

u 

oc 
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43 

CO 

U 

Q) 


0) 

c 


3 

o 

u 
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00 
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Subroutine  N0R2 


N0R2  formulates  the  normalization  constants  required  by  the  diode 
model  and  provides  an  optional  listing  of  these  values.  Source  listing 
for  N0R2  is  presented  in  Fig.  B.12. 

Subroutine  HOLION 

HOLION  evaluates  the  hole  ionization  coefficient  and  subsequent 
derivatives  with  respect  to  electric  field  and  temperature  at  node  M 
for  silicon.  Source  listing  for  HOLION  is  presented  in  Fig.  B.13. 

Subroutine  ELEION 

ELEION  evealuates  the  electron  ionization  coefficient  and  subsequent 
derivatives  with  respect  to  electric  field  and  temperature  at  node  M  for 
silicon.  Source  listing  for  ELEION  is  presented  in  Fig.  B.14. 

Subroutine  HMOB 

HMOB  evaluates  hole  mobility  and  the  subsequent  derivatives  with 
respect  to  electric  field  and  temperature  at  node  M  for  silicon.  Source 
listing  for  HMOB  is  presented  in  Fig.  B.15. 

Subroutine  EMOB 

EMOB  evaluates  electron  mobility  and  the  subsequent  derivatives 
with  respect  to  electric  field  and  temperature  at  node  M  for  silicon. 
Source  listing  for  EMOB  is  presented  in  Fig.  B.16. 

Subroutine  TNDAOP 

TNDAOP  outputs  the  simulation  transient  data  summary  on  either  a 
printer  or  data  file  8,  or  both.  Separate  write  intervals  with  respect 
to  the  time  step  counter  are  maintained  for  the  two  cases.  Source  list¬ 
ing  for  TNDAOP  is  presented  in  Fig.  B.17. 

Subroutine  CSOP 

CSOP  outputs  diode  cross  sections  at  the  specified  cross  section 
times  on  either  a  printer  or  data  file  7,  or  both.  Separate  write 
intervals  with  respect  to  node  points  are  maintained  for  the  two  cases. 
Source  listing  for  CSOP  is  presented  in  Fig.  B.18. 

Subroutine  CICONC 

CICONC  evaluates  the  intrinsic  carrier  concentration  at  node  N 
and  its  derivative  with  respect  to  temperature  at  nodes  M  and  M-l. 

Source  listing  for  CICONC  is  presented  in  Fig.  B.19. 
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n  n  n  n  n 


SUBROUTINE  N0R2(L*DIEL.TEMP0.CARINT.XN.TN.CARN.EN.CURN. 
1VN.RECN.M0BN.0IFN.TEMPN) 

C 

C  EVALUATION  OF  NORMALIZATION  CONSTANTS 

C  L.EO.l*  LISTING  OF  NORMALIZATION  CONSTANTS  IS  GENERATEO 
C 

C  NORMALIZATION  CONSTANT  CODE 
C  XN— SPACIAL 

C  TN-TIME 

C  CARN-CARrIER 

c  en-electkic  field 

C  CURN-CURRENT 

C  VN-VOLTAgE 

C  RECN-RECOMBINATION 

C  MOBN-MOU1LITY 

C  OIFN-DIFFUSION 

C  TEMPN-TEmPERATURE 

C 

REAL*8  MOBN 

OOUoLE  PRECISION  XN»TN»CARN»EN.CURN.VN.RECN»DIFN.TEMPN 
DOUBLE  PRECISION  PERM. DIEL.BOZ. TEMPO. Q.TA.CARINT 

DIEL-DIELECTRIC  CONSTANT 
TEMP-DEGREES  KELVIN 

CARInT-InTRINSIC  CARRIFR  CONC.*  1/CM**3 


C 


C 

c 


c 


PERM=6.bS4D-14 
BOZ=1.3blO-23 
0=1. bO-19 

DIFN=1.UD0 

CARN=CARINT 

VN=BOZ*TEMPO/Q 

M0BN=1 • UDO/VN 

TA=(PERh*DIEL*VN/Q/CARN) 

TN=TA 

XN=TA**0.5 

EN=VN/XN 

CURn=Q*CaRN/XN 

recn=carn/ta 

TEMPN=TEMPO 
lF(L.LT.l.O)  GO  TO  10 


0  FARADS/CM.  FREE  SPACE  DERM. 
0  JOULS/DEGREE  KELVIN.  BOLTZ. 
0  COULOMBS 

0  CM**2/SEC 
0  1/CM**3 
0  VOLTS 

0  CM**2/SEC/V0l-T 
0  CM**2  *  TA=LD**2 
0  SEC.  TN=LD**2/D0 
0  CM.  XN=LD 
0  VOLTS/CM 
0  C0ULS/SEC/CM**2 
0  1/SEC/CM**3 
0  DEG.  KEL. 


WRITE (6. 5)  PERM. BOZ.DIEL. TEMPO. CARINT 
5  FORMAT ( •  1  PROGRAM  CONSTANTS’/ 

15X. ’FREE  SPACE  PERMITTIVITY* • »T3S* *PERM=* .T41.D23.18. ’  FARAuS/CK' 
2/. 5X. 'BOLTZMANN  CONSTANT .'. T35. • BOZ=' . T41 . D23. lb. •  JOULES/OEGREE 
3KELVIN' »// 

4*  PROGRAM  PARAMETERS'./ 

5bX* 'DIELECTRIC  CONSTANT. '. T35. »D1EL=' . T41 . D23. 18. •  FOR  SILICON'/ 
65X* 'TEMPERATURE. '*T35. 'TEMPOS'. T41. 023. 18.’  DEGREES  KELVIN'/ 

75X.' INTRINSIC  CARRIER  CONC . * ' * T35. • CARINTs' . T41 . D23. 18. •  1/CM**.}') 


WRITE (6. 8)  XN . TN * C ARN . EN * CURN . VN . RECN . MOBN . D IFN . TEMPN 
8  FORMAT!//. •  NORMALIZATION  CONSTANTS'./ 


Fig.  B.12.  Listing  for  Subroutine  N0R2 
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15X»lXN=t#T12#D23.18# •  CM»/ 

25X»fTN=f #T12#023.18#f  SECf/ 

35X# •CARM=»  #T12#023.18# •  1/CM**3*/ 

45X#  fEN=f  *T12#D23.18#  f  VOLT/CM*/ 

55X» • CURN=f  #T12»U23.18# •  COUL/SEC/VOLTf / 
b5X#  •  VN=»  #T12#D23.18#  •  V/OLTS*/ 

75X# fRECN=»  »T12»U23.18t •  l/SEC/CM**3f / 

85X » • MObN= • #  T12 • 023 . 18 • 1  CM*«2/SEC/ VOLT • / 
95X • • 01FN= • • T12 • 023 • 1 8 • 1  CM*«2/SEC • / 

15X# •TEMPN=f #T12#023.18# •  0E6.  KEL. f ) 

C 

10  RETURN 
ENO 


Fig.  B. 12.  (Continued)  Listing  for  Subroutine  N0R2 


129 


1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 


SUBROUTINE  H0LI0N< AlTS#El*TEMPt AIPM# AIPEM# AIPTH) 

C 

C  AITS  -  IONIZATION  COEFF •  THERMAL  DEPENDENCE#  1/DEG#  KEL. 

C  AIPM  -  HOLE  IONIZATION  COEFF.  AT  NODE  (M) 

C  AIPEM  -  DERIVATIVE  OF  AIP  WITH  RESPECT  TO  E-FIELD 
C  AIPTM  -  DERIVATIVE  OF  AIP  WITH  RESPECT  TO  TEMPERATURE 
C 

IMPLICIT  DOUBLE  PRECISION  <A-H#0-Z) 

COMMON  /NORM/XN»TN#CARN#EN#CURN#VN#RECN#RMOBN»DIFN#TEMPN 
DATA  HA#HB/2.25D7#3#26D6/ 

C 

E=DABS(E1) 

IF(E.LT.2.7D4)  GO  TO  15 
IF(IFIT.NE.O)  GO  TO  10 
A=XN*HA* ( 1 . ODO+AI TS*300 .DO ) 

B=HB/EN 

c=xn*ha*aits*tempn 

C 

10  CONTINUE 

TEXP=DEXP(-B/E> 

AIPM=(A-C*TEMP)*TEXP 

AIPEM=A1PM*B/E/E 

AIPTM=-C*TEXP 

C 

IFIT=1 

RETURN 

C 

15  CONTINUE 

C 

AIPM=0.0D0 

AIPEM=O.ODO 

AIPTM=O.ODO 

C 

return 

END 


Fig.  B.13.  Listing  for  Subroutine  HOLION 
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SUBROUTINE  ELEIONt AITS t El* TEMP* AINM*  AINEM»AINTM) 


C 

C  AITS  -  IONIZATION  COEFF.  THERMAL  DEPENDENCE*  1/DEG.  KEL. 

C  AINM  -  ELECTRON  IONIZATION  COEFF.  AT  NODE  (M) 

C  A1NEM  -  DERIVATIVE  OF  AINM  WITH  RESPECT  TO  E-FIELD 
C  AINTM  -  DERIVATIVE  OF  AINM  WITH  RESPECT  TO  TEMPERATURE 
C 

IMPLICIT  DOUBLE  PRECISION  <A-H*0-Z> 

COMMON  /NORM/XN * TN * C ARN * EN * CURN # VN » RECN # RMOBN r DIFN* TEMPN 
DATA  EA  f EB/3 • 8D6 1 1 . 75D6/ 

C 

E=DABS<El> 

IF (E.LT • 1 . 7D4)  GO  TO  15 
IF(IFIT.NE.O)  GO  TO  10 
A=XN*EA* ( 1 . ODO+A ITS*300 . DO ) 

B=EB/EN 

C=XN*EA*AITS*TEMPN 

C 

10  CONTINUE 

TEXP=DEXP(-B/E) 

AINM=(A-C*TEMP)*TEXP 

AINEM=AINM*B/E/E 

AINTM=-C*TEXP 

C 

IFIT=1 

RETURN 

C 

15  CONTINUE 

C 

A1NM-0 • 0D0 
AINEM=0.0D0 
AINTM=0.0D0 
C 

RETURN 

END 


Fig.  B.14.  Listing  for  Subroutine  ELEION 
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SUBROUT I NE  HMOB < OOP It El* TEMP  *  HMO *  HMOE t  HMOT ) 

C 

C  EVALUATES  HOLE  MOBILITY*  E-FIELD  DERIVATIVE  AND 
C  TEMPERATURE  DERIVATIVE  AT  NODE  M 
C 

IMPLICIT  DOUBLE  PRECISION  <A-H*0-Z) 

COMMON  /NORM/XN *  TN *  C ARN *  EN * CURN *  VN *  RECN  *  RMOBN *  D I FN  *  TEMPN 
C 

DATA  HMOO  *  HN  *  HS  *  HA  *  HF  *  HB  *  ALF  A/480  #0D0*4*0D16*81«0DQ*6«1D3* 
1 1*600 • 2 • 504 *2*300/ 

C 

E-DABS (El) 

D0P=DABS(D0P1) 

IF(IFIT.NE.O)  GO  TO  10 
TA=RMOBN/HMOO* ( TEMPN/300 . 0D0 ) ♦♦ALFA 
TB=1.0D0/HS 
TC=HN/CARN 
TD=HA/EN 
TE=HF^TD*TD 
TF=(EN/HB)^2 
C 

10  CONTINUE 

G=TA*TEMP^*ALFA 

GT=ALFA^G/TEMP 

C 

TG=1.0D0/(TD^E+TE> 

ETE=E^E 

H=1 .  ODO+DOP/  ( TB*DOP+TC )  ♦  ( TG+TF )  ♦ETE 
HE=2.0D0*(TG+TFUE-TG^TG*ETE*TD 
C 

HMO-1 • 000/ (G^DSQRT (H) ) 

HMOT=-GT*HMO/G 

HMOE=-HE/  ( 2 . 0D0*G^H^1  •  5D0 ) 

C 

IFIT=1 

RETURN 

END 


Fig.  B.15.  Listing  for  Subroutine  HMOB 
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o o  on 


SUBROUT I NE  EMOB ( OOP 1  »  E 1 , TEMP . EMO  *  EMOE  #  EMOT ) 

EVALUATES  electron  MOBILITY,  E-FIELD  derivative  and 
temperature  derivative  at  node  m 

implicit  double  precision  <a-h»o-z> 

COMMON  /NORM/XN , TN » CARN , EN , CURN , VN , RECN . RMOBN , DIFN , TEMPN 
C 

DATA  EMOO,ENN,ES,EA,EF,EB, ALFA/1400. 0D0, 3. 0D16, 350. 0D0, 
13. 5D3. 8. 800. 7,403. 2. 500/ 

C 

E=DABS(E1> 

DOP=DABS(DOPl) 

IF(IFIT.NE.O)  GO  TO  10 
TA=RMOBN/EMOO* ( TEMPN/300 . 0D0 ) **ALFA 
TB=1.0D0/ES 
TC=ENN/CARN 
TO=EA/EN 
TE=EF*TD*TD 
TF=(EN/EB)**2 
C 

10  CONTINUE 

G=TA*TEMP**ALFA 

GT=ALFA*G/TEMP 

C 

TG=1.0D0/(TD*E+TE) 

ETE=E*E 

H=1 . ODO+DOP/ ( TB*DOP+TC )  +  ( TG+TF  >  *ETE 
HE=2. ODO*  C  TG+TF ) *£-TG*TG*ETE*TD 
C 

EM0=1 , 000/ (G*DSQRT(H) ) 

EMOT=-GT*EMO/G 

EMOE=-HE/ (2. 0D0*G*H**1 . 5D0 ) 

C 

IFIT=1 

RETURN 

END 


Fig.  B.16.  Listing  for  Subroutine  EMOB 
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OOHOH  o  o  oo  o  o  o  o  o  oooooo 


SUBROUTINE  TNDAOP(T»TMAX» ITIME»TLINC»TSINC»LSCS*NCSYES) 


OUTPUTS  TRANSIENT  OATA  ON  UNIT  6  (PRINTER)  AND  ON 
UNIT  8  (DATA  FILE).  DATE  IS  WRITTEN  ON  UNIT  6  IN 
BLOCKS  OF  51/50  LINES  THROUGH  TEMPORARY  ARRAY  STORAGE. 

OUTPUT  INTERVALS  ARE  TLINC  AND  TSINC.  RESPECTIVELY. 

IMPLICIT  DOUBLE  PRECISION  (A-H*0-Z) 

COMMON  /NORM/  XN » TN»  C ARN *  EN » CURN » VN * RECN » RMOBN » DIFN *  TEMPN 
COMMON  /TD  AT  A/  T I  ME  #  DT . DHOLM . DELEM . DEM .DTM.PIBM.PIVMIN. 
1TEMPM » C IM*  QSGR » CD ISM » VDBI AS 
INTEGER  T. TMAX» TLINC »TSINC.TL(51) 

REAL  DL(51*13)»D(13) 

DATA  NLLIM/51/ 

MS=TSINC 

ML=TLINC 

IF (MS.LE.O)  MS=1 000000 
IF(ML.LE.O)  ML=1000000 

IS=T/MS*MS-T 

IL=T/ML*ML-T 

OUTPUT  LINE  OF  DATA? 

IF(IS.NE.O.OR. LSCS .EO.O.AND.IL.NE.O. AND .NCSYES.NE.l)  RETURN 

UNNORMALIZED  TRANSIENT  OATA 
D(1)=TIME*TN 
D(2)=DT*TN 
D(3)=DH0LM*CARN 
D(4)=DELEM*CARN 
D(5)=DEM*EN 
D(6)=DTM*TEMPN 
D(7)=PIBM*CARN 
D(8)=PIVMIN 
D(9)=TEMPM*TEMPN 
D(10)=CIM*CARN 
D(11)=QSGR 
D(12)=CDISM*CURN 
D(13)=VDBIAS*VN 

WRITE  DATA  ON  UNIT  8? 

IFdS.NE.O. AND. NCSYES.NE.l. OR. LSCS. NE.l)  GO  TO  15 
WRITE(8.10>  T.D 
)  FORMAT (I15»13(/*E15.8) ) 

>  CONTINUE 

STORE  DATA  TO  BE  WRITTEN  ON  UNIT  6? 

IF ( IL . NE . 0 . AND . NCSYES. NE . 1 )  RETURN 
NL=NL+1 

C  TRANSFER  DATA  TO  TEMPORARY  ARRAY  STORAGE. 

TL(NL)=T 
DO  20  K=l# 13 


Fig.  B.17.  Listing  for  Subroutine  TNDAOP 
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o  o  no 


DL(NL'K)=D(K) 

20  CONTINUE 

DUMP  TEMPORARILY  STORED  DATA  ON  UNIT  6? 
IF(NL.LT.NLLIM.AND.T.LT.TMAX)  RETURN 

WRITE  TRANSIENT  DATA  HEADER  ON  UNIT  6 
WRITE(6*30)  ITIME 
30  FORMAT! *1**T8» 'TRANSIENT  DATA*  »T98* ’TIME  **A6.//» 

1T5*  *T*  #T9* 'TIME*  »T17»  *0TIME» i T25# *DHOLM*  »T33» *DELEM' # 
2T41»  *DEM*  »T48» ’DTEMPM*  «T57» *PI0M*  »T64*  *PIVMIN*  * 

3T73» *TEMPM*  »T81*  *CIM*  »T89*  *QSGR*  *T97*  *CDISM»  * 

4T107» • VDBIAS*  */) 

C 

C  WRITE  TRANSIENT  DATA  BLOCK  ON  UNIT  6. 

WRITE<6»35)  (TL(I) * (DL(I»J) » J=l» 13) • 1=1 .NL) 

35  FORMAT (IX* I5» 12E8.3*E15.9) 

C 

NL=0 

NLLIM=50 

C 

RETURN 

END 


Fig.  B.17.  (Continued)  Listing  for  Subroutine  TNDAOP 
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SUBROUT I NE  CSOP  < I T I ME • T i T I ME  t  LCS  t  LCSP I #  LSCS • LSCSP I  #  P ) 

C  OUTPUTS  DIODE  CROSS  SECTIONS  ON  UNIT  6  (PRINTER)  AND 
C  ON  UNIT  7  (DATA  FILE).  OUTPUT  INTERVALS  ARE  LCSPI 
C  AND  LSCSP 1 9  RESPECTIVELY. 

C 

IMPLICIT  DOUBLE  PRECISION  (A-H»0-Z) 

INTEGER  T»P 

COMMON  /NORM/  XN»TN#CARN*EN*CURNr VN. RECNr RMOBN. DIFN» TEMPN 
COMMON  /VAR/XXN ( 101 ) »DXN ( 101 ) » DOPN ( 101 ) • HOL ( 101 ) #ELE ( 101 )  »E(101)» 
1V(101) .TEMP(lOl) 

COMMON  /CURR/CURHOL ( 101 ) »CURELE(101) *CURDIS(101) 

COMMON  /PARM/PIB ( 101 ) »CI(101)»GS(101)»GI(101) 

C 

REAL  UNTIME*D( 15) 

C 

ML=LCSPI 

MS=LSCSPI 

IF(ML.LE.O)  ML= 1000000 
IF (MS«LE. 0 )  MS-1000000 
C 

C  WRITE  DATA  FILE  HEADER  ON  UNIT  7 
UNTIME=TIME*TN 

IF (LSCS.EQ. 1 )  WRITE (7.10)  T RUNTIME »P 
10  FORMAT (I15/E15. 8/1 15) 

C 

TA=CARN/TN 

K=0 

KL=51 

15  CONTINUE 

K=K^1 

IS=(K-1)/MS*MS-(K-1) 

IL=(K-1)/ML*ML-(K-1) 

C 

C  WRITE  OR  SKIP  LINE  OF  DATA? 

IF ( IS.NE.O.AND. 1L.NE. 0. AND.K.LT .P)  GO  TO  15 
C 

C  UNNORMALIZE  AND  WRITE  DATA  ON  APPROPRIATE  UNIT. 

D(1)=XXN(K)*XN 
D(2)=DXN(K)*XN 
D(3)=D0PN(K)*CARN 
D(4)=H0L(K)*CARN 
D(5)=ELE(K)»CARN 
D(6)=E(K)*EN 
D(7)=V (K) *VN 
D(8)=TEMP(K)*TEMPN 
D(9)=CURH0L(K)*CURN 
D(  10 )=CURELE (K) ♦CURN 
D(11)=CURDIS(K)*CURN 
D(12)=PIB(K)*CARN 
D(13)=CI(K)*CARN 
D(14)=GS(K)*TA 
D(15)=GI(K)*TA 
C 

C  WRITE  DATA  ON  UNIT  7? 

IF(IS.NE.O.AND.K.LT.P.OR.LSCS.NE.l)  GO  TO  30 


Fig.  B.18.  Listing  for  Subroutine  CSOP 
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WRITE<7.25>  K.D 
25  FORMAT! 115. 15(/»E15»8) ) 

30  CONTINUE 

WRITE  DATA  ON  UNIT  6? 

IF(IL.NE.O.AND.K.LT.P)  60  TO  50 
KL=KL*1 

IF (KL«LT *52)  GO  TO  40 
KL=1 

WRITE(6.35>  T. UNTIME’ ITIME 
35  FORMAT ( •  1  DIODE  CROSS  SECTION. • »5X» *T=* » 17. 5X. 

1* TIMES' »E10«3»T98» ’TIME  '»A6»//» 
1T4.'N'.T9»'XXN'’T17.'DXN'»T26. 
l'OOPN' .T34. 'HOL' »T41» 'ELE' »T51»  »E' .T59. ' V* » 
1T65* 'TEMP* . 

2T72. 'CUKHOL' »T80. 'CURELE' »T88f 'CURDIS*  »T97. 
3'PIB' »T105» 'CI'.T113» »GS' ’T121 , 'GI • »/) 

C 

40  CONTINUE 

WRITE<6»45>  K.O 
45  FORMAT ( IX* I4> 15E8.3) 

C 

50  CONTINUE 

IF(K.LT.P)  GO  TO  15 

RETURN 

END 


Fig.  B.18.  (Continued)  Listing  for  Subroutine  CSOP 
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noon 


SUBROUT I NE  C I CONC ( DXRNM r DXRNP , TEMPMM * TEMPM * C IN » 
1CITNM»CITNP) 

EVALUATES  INTRINSIC  CARRIER  CONC.  AT  NODE  N  ANO 
TEMPERATURE  DERIVATIVE  AT  NODES  M-I  ANO  M 

IMPLICIT  DOUBLE  PRECISION  (A-HrO-Z) 

COMMON  /INTRIN/CBEDS»VBEDS»ENGAP 

COMMON  /NORM/XN * TN * CARN * EN » CURN . VN # RECN » RMOBN » DIFNr TEMPN 
COMMON  /PHYCON/Q*BOZ»PERM 
C 

IF(IFIT.NE.O)  GO  TO  10 

A=1 . 000/C ARN*DSQRT ( CBEDS*VBEDS* ( TEMPN/300 . 000 ) **3 ) 
B=ENGAP*Q/ ( 2 . ODO*BOZ*TEmPN ) 

C 

10  CONTINUE 

C INM=A*TEMPMM**1 . 5*DEXP ( -B/TEMPMM ) 

C I NP=A*TEMPM»  * 1 . 5*DEXP ( -B/TEMPM ) 

TA=DXRNM*CINM 

TB=DXRNP*CINP 

CIN=TA+TB 

C ITNM=TA/TEMPMM* ( 1 . 500+B/TEMPMM ) 

CITNP=TB/TEMPM* ( 1 .500+B/TEMPM) 

C 

IFIT=1 

RETURN 

END 


Fig.  B.19.  Listing  for  Subroutine  CICONC 
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Subroutine  CUR 


CUR  evaluates  the  hole  and  electron  current  components  at  nodes 
M  and  M-l  along  with  the  subsequent  derivatives  with  respect  to  hole 
concentration,  electron  concentration,  electric  field,  and  temperature. 

The  formulation  used  in  these  calculations  depends  on  the  value  of  the 
term  Ax  (M)E(M)/T(M) ,  i.e.,  if  it  is  greater  than  1x10  6  direct  evalua¬ 
tion  is  used,  and  if  it  is  less  than  1x10  6  Taylor  series  approximations 
are  used.  Moreover,  the  program  is  economical  in  that  each  time  it  is 
referenced  the  required  current  component  values  are  evaluated  about  the 
M  node  only;  the  M  node  values  generated  by  the  previous  refernece  becomes 
the  M-l  node  values  for  the  present  reference  and  are  used  as  such. 
Accordingly,  CUR  must  be  referenced  once  to  initialize  this  procedure, 
such  that  the  desired  values  are  available  on  subsequent  references. 

Source  listing  for  CUR  is  presented  in  Fig.  B.20. 

Subroutine  GION 

GION  evaluates  carrier  generation  through  avalanche  ionization 
at  node  N  along  with  the  subsequent  derivatives  with  respect  to  hole 
concentration,  electron  concentration,  electric  field,  and  temperature. 
Since  avalanche  generation  is  nonlinear  in  the  model  dependent  variables 
and  depends  mainly  on  quantities  available  at  the  M-nodes,  separate 
avalanche  ionization  terms  are  evaluated  at  the  M  and  M-l  nodes  and  are 
averaged  together  according  to  weighting  factors  dependent  on  the  spacial 
grid  to  yield  the  desired  avalanche  ionization  value  at  node  N.  Formula¬ 
tion  in  this  manner  facilitates  a  nonuniform  spacial  grid.  Source  listing 
for  GION  is  presented  in  Fig.  B.21. 

Subroutine  GSHR 

GHSR  evaluates  Shockley-Read-Hall  gener&tion-recombination  through 
mid-energy-band-gap  defect  centers  and  subsequent  derivatives  with  respect 
to  hole  and  electron  concentrations  at  node  N  and  derivatives  with  respect 
to  temperature  at  nodes  M  and  M-l.  Source  listing  for  GSHR  is  presented 
in  Fig.  B. 22. 

Subroutine  BANDA3 

BANDA3  uses  the  Gaussian  elimination  technique  in  conjunction 
with  back  substitution  to  solve  the  banded  or  diagonal  system  of  linear 
equations  which  characterizes  the  numerical  model  developed  in  Section  3. 
Source  listing  for  BANDA3  is  presented  in  Fig.  B.23. 

Subroutine  CHECKC 

CHECKC  checks  for  arithmetic  overflow,  underflow  and  divide  check 
faults.  Upon  detection  of  any  of  these  faults  a  respective  error  message 
is  printed.  Source  listing  for  CHECKC  is  presented  in  Fig.  B.2A. 
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Subroutine  AXR$ 


AXR$  is  written  in  assembler  language  and  supplements  the 
FORTRAN  compiler  by  defining  the  intrinsic  FORTRAN  V  functions  OVERFL , 
DVCHK,  AND  UNDFL.  Source  listing  for  AXR$.is  presented  in  Fig.  B.24. 
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SUBROUTINE  CUR (EXTCR 1 # DXMNP # DOPNP # HOLNN # HOLNP # ELENN # ELENP # 
1ENP  #  TEMPNP •  VNN  *  VNP  t HMONP #  EMONP ) 

C 

C  EVALUATION  OF  CURRENT  COMPONENTS*  CURRENT  COMPONENT 
C  DERIVATIVES#  AND  DIODE  VOLTAGE  ABOUT  NODE  (N) 

C  SUB.  MUST  BE  REF.  FOR  NODE  N=1  TO  INITIALIZE  SYSTEM: 

C  DESIRED  VALUES  ARE  THEN  AVAILABLE  ON  SUBSEQUENT  REFS. 

C  FOR  N.GE.2 

IMPLICIT  DOUBLE  PRECISION  <A-H#0-Z> 

COMMON  / JPNP/CPNP #  CPPNPM  #  CPPNPP  #  CPENP  #  CPTNP 
COMMON  / JNNP/CNNP  #  CNNNPM  #  CNNNPP  #  CNENP  #  CNTNP 
COMMON  / JPNM/CPNM #  CPPNMM  *  CPPNMP  #  CPENM #  CPTNM 
COMMON  / JNNM/CNNM #  CNNNMM *  CNNNMP #  CNENM *  CNTNM 
C 

C  GENERATE  NEW  (M)  MOBILITY  COMPONENTS 

CALL  HMOB ( DOPNP  *  ENP  #  TEMPNP  #  HMONP  #  HMOENP  #  HMOTNP ) 

CALL  EMOB ( DOPNP  #  ENP  *  TEMPNP  #  EMONP  *  EMOENP #  EMOTNP ) 

C 

C  SHIFT  CURRENT  COMPONENTS:  C(M-1)=C(M) 

C 

CPNM=CPNP 

CPPNMM=CPPNPM 

CPPNMP-CPPNPP 

CPENM-CPENP 

CPTNM=CPTNP 

CNNM=CNNP 

CNNNMM=CNNNPM 

CNNNMP=CNNNPP 

CNENM=CNENP 

CNTNMzCNTNP 

C 

C  GENERATE  NEW  (M)  CURRENT  COMPONENTS 
C 

TA=DXMNP*ENP 

VNP=VNN-TA 

ta=ta/tempnp 

IF (DABS(TA ) .LT .EXTCR I )  GO  TO  10 
C 

C  DIRECT  EVALUATIONS 
C 

TA=DEXP(TA> 

TB~1.0D0-1.0D0/TA 

TA=1.0D0-TA 

TC=HMONP*ENP 

CPPNPP=TC/TA 

CPPNPM=TC/TB 

TC=EMONP*ENP 

CNNNPP=TC/TB 

CNNNPM=TC/TA 

CPNP=CPPNPP*HOLNP^CPPNPM^HOLNN 

cnnp=cnnnpp*elenp*cnnnpm*elenn 

TA=DXMNP/TEMPNP 
TB=TA^ (HOLNP-HOLNN) / 

1(1. 0D0/CPPNPM+1 . ODO/CPPNPP ) 


Fig.  B. 20.  Listing  for  Subroutine  CUR 
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cpenp=cpnp/enp-tb+cpnp/hmonp*hmoenp 

c 

TC-TA# ( ELENP-ELENN ) / 

1  Cl • 0D0/CNNNPM* 1 • ODO/CNNNP P > 
CNENP=CNNP/ENP*TC+CNNP/EMONP*EMOENP 
TD=ENP/TEMPNP 

cptnp=cpnp/hmonp*hmotnp+tb*td 

cntnp=cnnp/emonp*emotnp-tc*td 

c 

GO  TO  15 
C 

C  LIMITING  VALUES  AS  E  APPROACHES  ZERO 
C 

10  CONTINUE 

TB=Q.5D0*TA 
TC=TA*TA/12.0D0 
G=-1.0D0+TB-TC 
H=  l.ODQ+TB+TC 
C 

td=tempnp/dxmnp 

TF=TD*HMONP 

TG=TD*EMONP 

C 

CPPNPP=TF*G 

CPPNPM=TF*H 

CNNNPP=TG*H 

CNNNPM=TG*G 

CPNP=CPPNPP*HOLNP+CPPNPM*HOLNN 

CNNP=CNNNPP*ELENP+CNNNPM*ELENN 

c 

TB=0 • 5*DXMNP/TEMPNP 
TC=DXMNP*DXMNP 
TD=TEMPNP*TEMPNP 
TE=TC/TD/6.000*ENP 
GE=TB-TE 
HE=TB+TE 
C 

CPENP=CPNP/MMONP*HMOENP+TF* < GE*HOLNP+HE*HOLNN ) 
CNENP=CNNP/EMONP*EMOENP*TG*(HE*ELENP+GE*ELENN) 

C 

TB=TA*TA/12.0D0 
GTT=-1.000+TB 
HTT=  1  •  OOO-TB 
C 

CPTNP=CPNP/HMONP*HMOTNP+HMONP/DXMNP* ( GTT*HOLNP+HTT*HOLNN ) 
CNTNP=CNNP/EMONP*EMOTNP+EMONP/DXMNP*<HTT*ELENP+GTT*ELENN> 

c 

15  CONTINUE 

c 

return 

END 


Fig.  B. 20.  (Continued)  Listing  for  Subroutine  CUR 
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o  o  o  o  o  o  o  o  o 


SUBROUT I NE  6 1 ON ( A I TS » OXRNM  . DXRNP » ENP  * TEMPNP  »  A I PNP » A I NNP ) 

c  generation  of  avalanche  ionization  factors  about  nooe 

C  <N>.  WEIGHTING  FACTORS  DXRNM  AND  OXRNP  HAVE  BEEN 
C  INCORPERATED  to  facilitate  a  NONUNIFORM  SPACIAL  GRID. 

C  SUB.  MUST  BE  REF.  FOR  NODE  N=1  TO  INITIALIZE  SYSTEMS 
C  DESIRED  VALUES  ARE  THEN  AVAILABLE  ON  SUBSEQUENT  REFS. 

C  FOR  N.GE.2 
C 

IMPLICIT  DOUBLE  PRECISION  (A-H.O-Z) 

COMMON  / JPNP/CPNP . CPPNPM . CPPNPP . CPENP » CPTNP 
COMMON  / JNNP/CNNP . CNNNPM *  CNNNPP » CNENP . CNTNP 
COMMON  /G I ONN/GI PNMM . G I NNMM » G I ENM » G I TNM . 

1GINM.G1PN, GIN. GINN. GINP.GIPNPP. 

2GINNPP.GIENP.GITNP 

C 

ABSDER (F . DERF ) =DSIGN ( 1 . 0D0 . F ) *DERF 
C 

IF(IFIT.EQ.O)  TDXRNP=0.5D0 

GENERATE  NEW  (M)  IONIZATION  COEFFS. 

CALL  HOLION( AITS. ENP. TEMPNP. AIPNP. A IPENP.AIPTNP) 

CALL  ELE ION ( A I TS . ENP . TEMPNP . A I NNP . AINENP » AINTNP ) 

SHIFT  AND  WEIGHT  AVALANCHE  FACTORS:  GI(M-1)=GI (M) 

MODIFY  WEIGHT  FACTOR  TO  COMPENSATE  FOR  PREVIOUS  WEIGHTING. 

TDXRNM=DXRNM/TDXRNP 

ginm=ginp*tdxrnm 

GIPNMM=GIPNPM*TDXRNM 
GIPNMP=GIPNPP*TDXRNM 
GINNMM=GlNNPM*TDXRNM 
GINNMP=GlNNPP*TOXRNM 

gienm=gienp*tdxrnm 

GI TNM=G I TNPwTDXRNM 

GENERATE  NEW  (NP)  AVALANCHE  FACTORS: 

ABCPNP=DABS(CPNP) 

ABCNNP=UABS(CNNP) 

GINP=DXRNP*(AIPNP*ABCPNP*AINNP*ABCNNP) 

G I PNPM=DXRNP*A I PNP* ABSDER  <  CPNP . CPPNPM ) 

GIPNPP=UXRNP*A IPNP* AHSDtR ( CPNP » CPPNPP ) 
GINNPM=DXRNP*AINNP* ABSDER  < CNNP . CNNNPM ) 
6INNPP=DXRNP*AINNP* ABSDER ( CNNP . CNNNPP ) 
GIENP=DXRNP*(ABCPNP*AIPENP+ 

1 A IPNP*ABSDER (CPNP . CPENP ) ♦ ABCNNP* AI NENP+ 
2AlNNP*ABSDERtCNNP. CNENP) ) 

GITNP=DXRNP*(ABCPNP*AIPTNP+ 
1AIPNP*ABSDER(CPNP.CPTNP)+ABCNNP*AINTNP+ 

2A I NNP* AbSOER ( CNNP .CNTNP ) ) 

C 

GIN=GINM+GINP 
G IPN=G I PNMP+GI PNPM 


Fig.  B.21.  Listing  for  Subroutine  GION 
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G I NN=G I NNMP+GI NNPM 


SAVE  'DXRNP'  FOR  NEXT  PASS! 

TDXRNP=OXRNP 

SET  IFIT=1  TO  PREVENT  initializations  ON  subsequent 
PASSES! 

IFIT=1 

RETURN 

END 


Fig.  B.21.  (Continued)  Listing  for  Subroutine  GION 
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SUBROUT I NE  GSHR (TAUP# T AUN » HOL 9 ELE  # 

1TEMPMM • TEMPM • C I N • C I TNNW  C I TNP f 
2G  f  GP  t  GN  *  GTNM 9  GTNP ) 

C 

c  evaluation  of  shockley-hall-read  generation-recombination 

C  THROUGH  MID-ENERGY-BAND-GAP  GEN. -RECOMB.  CENTERS 9  AND 
C  HOLE  AND  ELECTRON  DERIVATIVES  AT  NODE  (N)  AND  TEMPERATURE 
C  DERIVATIVES  AT  NODES  (M-l)  AND  (M) 

C 

IMPLICIT  DOUBLE  PRECISION  (A-H90-2) 

C 

TA=CIN*ELE 
TB=C IN+HOL 
TC=TAUN*TB+TAUP*TA 
TD=TC*TC 

TE=CIN*CIN-H0L*ELE 

TF=(2.0D0*CIN*TC-(TAUP+TAUN)*TE)/TD 

C 

G=TE/TC 

GP-- ( TAUN*CIN+TAUP*ELE ) *T A/TD 
GN=- ( T AUP*C IN+T AUN*HOL ) ♦TB/TD 
GTNM=TF*CITNM 

gtnp=tf*citnp 

c 

RETURN 

END 


Fig.  B.22.  Listing  for  Subroutine  GSHR 
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SUBROUTINE  B ANDA3 ( LRMAX # NCD # NHD * LROW *  LCOL  *  A  *  X  * NBNDTX *  P I VM IN ) 

C 

C  SUB#  • BANDAG •  EVALUATES  THE  SOLUTION  OF  A  BANDED 
C  (OR  DIAGONAL)  SYSTEM  OF  (LRMAX)  LINEAR  SIMULTANEOUS 
C  EQUATIONS  THROUGH  THE  GAUSSIAN  ELIMINATION  TECHNIQUE# 

C  RESULTING  •A*  ARRAY  OF  NO  USE  TO  USER! 

CP  -  SOLUTION  ARRAY  LENGTH*  INCLUDES  UNKNOWNS  AND 

C  BOUNDARY  VALUES 

C  NCD  -  COLUMN  NUMBER  OF  CENTRAL  DIAGONAL  IN  fAf 

C  NHD  -  COLUMN  NUMBER  FOR  EQUATION  CONSTANTS  IN  fA» 

C  A  -  COEFFICIENT  AND  CONSTANT  ARRAY 

C  X  -  SOLUTION  ARRAY  _  _  .  or4AV 

C  NBNDTX  -  NUMBER  OF  POSITIONS  RESERVED  FOR  BND.  VALUES  AT  TOP  OF  fXf  ARRAY 
C  LRMAX  -  NUMBER  OF  EQUATIONS  TO  BE  SOLVED  SIMULTANEOUSLY 
C  NDB  -  NUMbER  OF  COEFFICIENT  DIAGONALS  BELOW  CENTRAL 
C  (OR  MAIN)  DIAGONAL 

C  NDA  -  NUMBER  OF  COEFFICIENT  DIAGONALS  ABOVE  CENTRAL 
C  (OR  MAIN)  DIAGONAL 

C  PIVMIN  -  MINIMUM  PIVOT 
C  LROW  -  ARRAY  ROW  DIMENSION 
C  LCOL  "  ARRAY  COLUMN  DIMENSION 
c 

DOUBLE  PRECISION  TA»X(LROW) f A (LROW f LCOL) » ALFA* PIVMIN 
C 

NDB=NCD-1 

NDA=NHO-NCO-l 

PIVMIN=1.0D100 

C 

C  UPPER  TRIAN6ULATI0N  OF  ROWS  (2>-(NDB) 

IF(NDB.EQ.l)  60  TO  20 

DO  5  LR=2»NDB 

LCOF=NDB+2-LR 

00  10  LCO=LCOF»NDB 

ALF A=A ( LR  *  LCO ) /A  t LR+LCO-NCD » NCO ) 

00  15  LC=1*NDA 

A (LR  *  LC+LCO ) =A (LR  *  LC+LCO ) -ALF A*A ( LR+LCO-NCD  t LC+NCD ) 

15  CONTINUE 

A ( LR  *  NHD ) = A ( LR » NHD  > -ALF  A* A ( LR+LCO-NCD • NHD ) 

10  CONTINUE 

5  CONTINUE 

C 

20  CONTINUE 

C 

C  UPPER  TRIANGULARIZATION  OF  ROWS  (NDB+1 )- (LRMAX) 

DO  25  LR=NCD* LRMAX 

C  SEARCH  FOR  MINIMUM  DIAGONAL  PIVOT  ELEMENT 
TA= A ( LR-NDB  *  NCD ) 

IF(DABS(TA) .LT.OABS(PIVMIN) )  PIVMIN=TA 
DO  30  LCO=l*NDB 
C 

ALF A=A ( LR . LCO ) / A ( LR+LCO-NCD » NCD ) 

DO  32  LC=1.NDA  „ 

A ( LR  *  LC+LCO ) =A ( LR . LC+LCO  > -ALF A*A ( LR+LCO-NCD  #  LC+NCD ) 

32  CONTINUE 

A ( LR » NHD ) = A ( LR » NHD ) -ALF A* A ( LR+LCO-NCD  *  NHD ) 


Fig.  B.23.  Listing  for  Subroutine  BANDA3 
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30  CONTINUE 

25  CONTINUE 

C  BACK  SUBSTITUTION  FOR  X (LRMAX ) -X (LRMAX-NDA+l ) 
lrstop=lrmax-nda* 1 
00  45  LR=LRMAXfLRSTOPr-l 
TA=A(UR»NHO) 

kk=lr+nbndtx 
KSTOP=LRMAX-LR 
IF(KSTOP.EQ.O)  GO  TO  40 
DO  35  K=1#KST0P 
TA=TA-X(K*KK)*A(LR»K*NCD> 

35  CONTINUE 

40  CONTINUE 

X(KK)=TA/A(LR#NCD) 

45  CONTINUE 

C 

C  BACK  SUBSTITUTION  FOR  X(LRMAX-NDA)-  X(NDB+1) 

lrst=lrmax-nda 

DO  55  LR-LRST  # 1 # -1 

KK=LR4NBNDTX 

TA=A(LRtNHO) 

DO  50  K=1#NDA 
TA=TA-X(K+KK) *A(LR*K+NCD> 

50  CONTINUE 

X(KK)=TA/A(LR»NCD) 

55  CONTINUE 

C 

C 

RETURN 

END 


Fig.  B.23.  (Continued)  Listing  for  Subroutine  BANDA3 
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SUBROUTINE  CHECKC(K) 

subroutine  check  checks  for  floating  point 
overflow  and  divide  fault. 

CALL  OVERFL(I) 

c 

IF(I.NE.l)  GO  TO  4 
WRITE(6»1)  K 

1  FORMAT (/» •  *****  OVERFLOW  CHECK  NO.  •» 

112.  •  *****•»/) 

C 

4  CALL  DVCHK ( I > 

C 

IF(I.NE.l)  GO  TO  5 
WR I TE ( 6 »  2 )  K 

2  FORMAT (/» *  *****  DIVIDE  FAULT  CHECK  NO.  •» 
1 12 » '  *****•»/) 

C 

5  CALL  UNDFL(I) 

C 

IF(I.NE.I)  GO  TO  6 
WRITE(6»3)  K 

3  FORMAT (/» •  *****  UNDERFLOW  CHECK  NO.  •* 

112.'  *****•,/) 

C 

6  CONTINUE 
RETURN 
END 


(a)  Listing  for  CHECK.C 


$(1> 

OVERFL* 


DVCHK* 


UNOFL* 


AXRS  . 

.  (I) 

.  1=1  OVERFLOW 
.  1=2  NO  OVERFLOW 
L.U  A0.1 

JFO  S+2 

L.U  AO. 2 

S  A0.*0.X11 

j  2.X11 

.  (I) 

.  1=1  DIVIDE  FAULT 
.  1=2  NO  OIVIDE  FAULT 
L.U  A0.1 

JDF  S+2 

L.U  AO » 2 

S  A0.*0.X11 

J  2.X11 


.  (I) 

.  1=1  UNDERFLOW  FAULT 
.  1=2  NO  UNDERFLOW  FAULT 
L.U  AO  » 1 

JFU  S+2 

L.U  AO. 2 

S  AO . *0 . Xll 

J  2. Xll 

END  • 


(b)  Listing  for  AXR$ 


Fig.  B.24.  Listing  for  Subroutines  CHECK.C  and  AXR$ 
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B.3  Program  GDG 

Program  GDG  (Graph-Data-Generator)  converts  the  simula¬ 
tion  summary  stored  in  data  files  7  and  8  into  the  format  required  by  the 
graphic  analysis  program  GRAPH.  This  intermediate  data  handling  proced¬ 
ure  is  adopted  to  facilitate  tape  storage  and  management  of  simulation 
summaries.  The  natural  division  of  this  data  between  diode  cross  sections, 
data  file  7,  and  transient  data,  data  file  8,  is  also  beneficial  in  this 
respect.  GDG  processes  the  two  divisions  of  data  on  a  separate  and  op¬ 
tional  basis,  i.e.,  only  the  division  of  data  to  be  graphically  analyzed 
need  be  broken  down  into  individual  data  files.  The  program  is  designed 
for  interactive  execution,  but  may  be  conveniently  executed  in  batch  mode 
in  view  of  the  minimal  amount  of  user  supplied  data  required.  A  flow 
chart  for  GDG  is  shown  in  Fig.  B.25  and  the  source  listing  for  GDG  is 
presented  in  Fig.  B.26. 

Subroutine  NTAB$  is  the  only  subroutine  called  by  GDG  and  is 
described  in  Appendix  B.l. 

B . 4  Program  GRAPH 

Program  GRAPH  is  designed  to  provide  a  comprehensive 
graphical  analysis  capability  for  diode  simulations  performed  by  program 
COMP.  Execution  must  be  through  a  Tektronix  Display  Terminal  and  thus  in 
the  interactive  mode.  GRAPH  is  capable  of  plotting  three  different 
variables  on  the  same  graph,  assuming  that  each  graph  data  file  repre- - 
sents  a  single  variable  as  is  the  case  here.  The  number  of  curves  plotted 
per  variable  is  equivalent  to  the  number  of  cross  sections  plotted  for 
a  given  graph.  For  example,  a  graph  may  be  generated  which  presents  the 
electron  and  hole  current  profiles  for  several  different  points  in  time 
during  a  simulation,  all  on  the  same  graph.  On  the  other  hand,  graphs 
of  this  nature  are  not  possible  for  the  transient  data,  since  the 
respective  data  files  only  contain  one  cross  section,  or  profile.  All 
graphs  are  plotted  on  a  single  set  of  coordinates,  thus  making  some 
variable  combinations  undersirable. 

The  graph  to  be  plotted  may  be  specified  either  through  a  simple 
code  word,  or  in  terms  of  graph  data  file  codes.  For  example,  in  the 
former  case  the  code  word  JPNX  would  designate  a  graph  of  hole  and 
electron  current  components  versus  position.  In  the  latter  case,  the 
code  work  NEW  would  first  be  entered,  causing  the  program  to  solicit 
the  graph  data  file  codes  for  the  respective  variables  to  be  plotted. 

Four  data  file  codes  must  be  entered  as  data  with  the  first  representing 
the  independent  variable  and  the  next  three  representing  the  dependent 
variables.  If  only  one  or  two  dependent  variables  are  to  be  specified 
then  the  remaining  positions,  or  position  must  be  filled  by  zeros.  For 
the  above  example  20,  28,  29,  0  would  be  entered.  A  list  of  the  graph 
data  file  codes  and  the  available  graph  codes  is  shown  in  Table  B.3. 
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Fig.  B.25.  Flow  Chart  for  Program  GDG 
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1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

lb 

16 

17 

18 

19 

20 

21 

22 

23 

24 

2b 

2o 

27 

28 

29 

30 

31 

32 

33 

34 

3b 

3b 

37 

38 

39 

40 

41 

42 

43 

44 

4b 

46 

47 

48 

49 

b0 

51 

52 

53 

54 

5b 

56 


<>♦♦*♦  GRAPH  OATA  GENERATOR  **♦*♦ 

C 

c  optional  breakdown  of  cross  section  and/or  transient  data  files 

C  (GENERATED  BY  •COMP*)  INTO  INDIVIDUAL  GRAPH  DATA  FILES 
C  REQUIRED  BY  •GRAPH*. 

DIMENSION  LFCS( 15)#  LFT(13)#  XMIN(20)#  XMAX(20)#  W(210#15) 

C 

C  OUTPUT  DATA  FILE  DIRECTORIES 

DATA  LFCS/20# 21 #22 #23 #24 #25 #26# 27 #28 #29 #30 #31 #32 #33 #34/ 

DATA  LFT/37# 38# 39 #40 #41 #42 #43 #44 #45# 46 #47 #48 #49/ 

C  INITIALIZE  NUMBER  OF  CROSS  SECTIONS  AND  TRANSIENT  OUTPUT  OF. 

DATA  NCSDF  #NTDF/15# 13/ 

C 


ASSIGN  INPUT 

data  files 

call 

ertran 

( 6 • • UASG t AX 

7.  .  •) 

U 

CROSS  SECTIONS 

call 

ertran 

<b»  •  UASG *  AX 

8  •  •  * 

) 

Q 

TRANSIENT 

assign  output  data  files 

CROSS 

SECTION  OUTPUT  OF 

(SPACIAL) 

call 

ertran 

<6*  *0ASG, AX 

20.  . 

•  ) 

U 

XXN 

call 

ERTRAN 

(6» 1 UASG »AX 

21.  . 

•) 

0 

DXN 

call 

ertran 

(6* ♦UASG.AX 

22.  . 

•) 

Q 

DOPN 

call 

ertran 

(6. • UASG » AX 

23.  . 

•  ) 

U 

HOL 

call 

ertran 

( 6 1 * UASG  #  AX 

24.  . 

•  ) 

U 

ELE 

call 

ertran 

(6# ’UASG. AX 

25.  . 

*  ) 

U 

E 

call 

ertran 

( 6 1 * UASG *  AX 

2  6.  • 

•  ) 

U 

V 

call 

ertran 

(6. ‘UASG.AX 

27.  . 

*  ) 

U 

TEMP 

call 

ertran 

(6»  * UASG »  AX 

28.  • 

•  ) 

u 

CURHOL 

call 

ertran 

( b .  * UASG .  AX 

29.  . 

•  ) 

u 

CURELE 

call 

ertran 

(6t 1 UASG  . AX 

30.  . 

•  ) 

Q 

CURD IS 

call 

ERTRAN 

(6* 'UASG. AX 

31.  . 

•  ) 

0 

0 

call 

ERTRAN 

(6. • UASG . AX 

32.  . 

•  ) 

Q 

Cl 

call 

ertran 

( 6 » *  UASG  .  AX 

33.  . 

•  ) 

U 

GS 

call 

ertran 

(6*  ‘UASG. AX 

34.  . 

•  ) 

Q 

GI 

TRANSIENT  OUTPUT  OF  (TEMPORAL) 

CALL 

ertran 

( 6  # • UASG #  AX 

37.  . 

•  ) 

U 

TIME 

CALL 

ertran 

(6#  *UASG » AX 

38.  . 

•  ) 

U 

DTI  ME 

call 

ertran 

( 6  #  *  UASG #  AX 

39.  . 

♦  ) 

U 

dholm 

call 

ertran 

(  6  #  *  UASG  #  AX 

40.  . 

•  ) 

U 

DELEM 

call 

ertran 

( 6  # • UASG #  AX 

41.  . 

•  ) 

U 

DEM 

call 

ertran 

(6# •UASG# AX 

42.  . 

•  ) 

0 

DTEMPM 

call 

ERTRAN 

( 6 # • UASG  #  AX 

43 .  . 

•  ) 

0 

PIBM 

call 

ertran 

( 6 # • QASG  #  AX 

44.  . 

*  ) 

0 

PIVMIN 

call 

ERTRAN 

(6# • UASG #  AX 

45 .  . 

•  ) 

0 

TEMPM 

Call 

ERTRAN 

(6#  *UASG#  AX 

46.  • 

•  ) 

0 

CIM 

call 

ERTRAN 

( 6  # • UASG  #  AX 

47.  . 

•  ) 

0 

GSGR 

call 

ertran 

( 6  #  *  UASG  #  AX 

48.  . 

•  ) 

0 

CD  ISM 

call 

ertran 

( 6 »  *  UASG  #  AX 

49.  . 

•  ) 

0 

VDDIAS 

C 

WRITE  ( 6 #  20 ) 

20  FORMAT  ( • 1GENERATE  CROSS  SECTION  GRAPH  DATA?#  1-YES*) 
READ  ( 5# 30 )  LGCSGD 
30  FORMAT  ( ) 
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57 

sa 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

7o 

77 

7b 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

9o 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 


C 

WRITE  (6*40) 

40  FORMAT  (•  GENERATE  TRANSIENT  GRAPH  DATA?'  1-YES») 

READ  ( 5 r  3 0 )  LGTGD 

C - 

C  CREATE  INDIVIDUAL  SPACIAL  DATA  FILES 

- - 

C  GENERATE  CS  GRAPH  DATA? 

IF  (LGCSGD.NE.l)  GO  TO  180 
C 

C  READ  DATE  AND  TIME 

READ  ( 7# 50 )  IDATE* ITIME 
50  FORMAT  (A6) 

C 

C  WRITE  DATE  AND  TIME  ON  CS  DATA  FILES? 

DO  60  K=l, NCSDF 
KK=LFCS(K) 

WRITE  (KK , 50 )  IDATE * ITIME 
60  CONTINUE 

C 

70  CONTINUE 

C  INITIALIZE  MINIMUMS  AND  maximums 

DO  80  K=l, NCSDF 
XMIN(K)=1.0E20 
XMAX(K)=-1.0E20 
80  CONTINUE 

C 

C  READ  CROSS  SECTION 

READ  (7,90,END=150)  NT , TIME ' NP 
90  FORMAT  ( I 15 , / , E15 . 8 ' / ' I 15 ) 

READ  <7,100,END=150)  (IBLANK, (W ( J,K) ,K  =  1 , NCSDF) , J=1,NP) 
100  FORMAT  (U5'/»  (E15.fi)  ) 

C 

C  EVALUATE  NET  CHARGE »  MINS  AND  MAXS 

DO  120  JnlrNP 

W( J, 12)=W( J,4)-W( J,5)+W(J, 3) 

DO  110  K=l» NCSDF 
XMIN=AMIN1 <XMIN,X) 

XMAX=AMAX1(XMAX,X) 

110  CONTINUE 
120  CONTINUE 

C 

TNP=NP 

C 

C  WRITE  NP ,  CS,  TIME,  MIN,  AND  MAX  ON  OUTPUT  DF 

DO  140  Kzl , NCSDF 
KK=LFCS(K) 

WRITE  (KK,130)  TNP , ( W ( J , K ) , J=1 , NP ) , T IME , XMI N ( K ) , XMaX ( K ) 
130  FORMAT  (E15.8) 

140  CONTINUE 

C 

C  TRANSFER  NEXT  CROSS  SECTION 

GO  TO  70 
C 

150  CONTINUE 

C  EOF  REACHED. ON  FILE  7.f  WRITE  EOF  ON  FILES  20.-36. 

DO  160  K=l' NCSDF 
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114 

115 

116 

117 

116 

119 

120 

121 

122 

123 

124 

125 

126 

127 

126 

129 

130 

131 

132 

133 

134 

135 

136 

137 

136 

139 

140 

141 

142 

143 

144 

145 

146 

147 

146 

149 

150 

151 

152 

153 

154 

155 

156 

157 

156 

159 

160 

161 

162 

163 

164 

165 

166 

167 

166 

169 

170 


KK=LFCS(K) 

END  FILE  KK 
160  CONTINUE 

WRITE  (6*170) 

170  FORMAT  (•  BREAKDOWN  OF  CROSS  SECTION  OF  COMPLETED*  */) 

C 

- - 

C  CREATE  INDIVIDUAL  TEMPORAL  DATA  FILES 

- - 

180  CONTINUE 
TIME=0.0 

C  GENERATE  TRANSIENT  GRAPH  DATA? 

IF  (LGTGD.NE.l)  GO  TO  320 
C 

C  READ  DATE  AND  TIME 

READ  (8*50)  IDATE * ITIME 
C 

C  WRITE  DATE  AND  TIME  ON  TRANS,  DATA  FILES 
DO  190  K=1*NTDF 
KK=LFT(K) 

WRITE  ( KK  *  50 )  IDATE*ITIME 
190  CONTINUE 
C 

C  READ  CROSS  SECTION  LABEL 

200  CONTINUE 

READ  (8*210*ENO=290)  NP 
210  FORMAT  (115) 

C 

C  NUMBER  OF  TRANS,  DATA  PTS,  . GT ,  0? 

IF  (NP.GT.O)  GO  TO  230 
WRITE  (6*220) 

220  FORMAT  (•  ZERO  TRANS.  DATA  PTS.*  BREAKDOWN  TRANS.  DF  SPEC.**/) 
GO  TO  320 
230  CONTINUE 
TNP=NP 
C 

c  initialize  minimums  and  maximums 

DO  240  K=1*NTDF 
XMIN(K)=1.0E20 
XMAX(K)=-1.0E20 
KK=LFT(K) 

WRITE (KK*  270 )  TNP 
240  CONTINUE 
C 

NPL=NP 

NPC=0 

NP=200 

245  CONTINUE 

NPC=NPC+200 

IF(NPC.GT.NPL)  NP=NPL+200-NPC 
C 

C  READ  CROSS  SECTION  DATA 

READ  (8*250*END=290)  (IBLANK* ( W ( J* K ) * K=1 * NTDF ) * J=1*NP) 

250  FORMAT  ( I 15* /* (E15.8) ) 

C 

DO  260  J=1*NP 
DO  260  K=1 *  NTDF 
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171 

172 

173 

174 

175 

176 

177 

178 

179 

180 

181 

182 

183 

184 

185 

186 

187 

188 

189 

190 

191 

192 

193 

19* 

195 

19o 

197 

198 

199 

200 

201 

202 

203 

204 

20b 

20b 

207 

208 

209 

210 

211 

212 

213 

214 

215 

216 

217 

218 

219 

220 

22 1 

222 

223 

224 

22b 

226 

227 


XMlN=AMlNl(XMINrX) 

XMAX=AMAX1(XMAX,X) 

260  CONTINUE 
C 

C  WRITE  TRANSIENT  DATA  ON  OUTPUT  DATA  FILE 

DO  280  K=1,NTDF 
KK=LFT(K) 

WRITE  ( KK #270 )  ( W ( J# K ) # J=1 # NP ) 

270  FORMAT  (E15.8) 

280  CONTINUE 
C 

IF(NPC.LT.NPL)  GO  TO  245 
C 

DO  285  KrlfNTDF 
KK=LFT(K) 

WR ITE ( KK  # 270 )  TIME#  XMIN(K) # XMAX (K ) 

285  CONI INUE 
C 

C  TRANSFER  NEXT  CROSS  SECTION 

GO  TO  200 
C 

290  CONTINUE 
C 

C  EOF  REACHED  ON  FILE  8.#  WRITE  EOF  ON  FILES  37.-49. 

DO  300  K=l#i\lTDF 
KK=LFT(K) 

END  FILE  KK 
300  CONTINUE 
C 

WRITE  ( 6  #  31 0 ) 

310  format  (•  breakdown  of  trans.  df  completed*#/) 

c 

320  CONTINUE 
C 

C  FREE  DATA  FILES 


call 

ERTRAN 

(  6  9  MJFREE 

20. 

. 

•  ) 

Q 

XXN 

call 

ertran 

(6# •QFREE 

21. 

. 

•  ) 

Q 

DXN 

call 

ertran 

( 6  #  *  QFREE 

22. 

. 

•  ) 

Q 

DOPN 

Call 

ertran 

C  6  #  *  QFREE 

23. 

. 

•  ) 

Q 

HOL 

call 

ertran 

(6#  •  QFREE 

24. 

. 

•  ) 

Q 

ELE 

call 

ertran 

(6#  • QFREE 

25. 

. 

•  ) 

Q 

E 

call 

ertran 

( 6  #  • QFREE 

26. 

. 

M 

Q 

V 

call 

ertran 

( 6  #  • QFREE 

27. 

. 

•  ) 

Q 

temp 

call 

ertran 

( 6  #  • QFREE 

28. 

. 

*  ) 

Q 

CURHOL 

call 

ertran 

( 6  # • QFREE 

29. 

. 

*  ) 

Q 

CURELE 

call 

ertran 

( 6  #  *  WFREE 

30. 

. 

• ) 

Q 

CURDIS 

call 

ertran 

( 6  9  *  l#)FREL 

31. 

. 

*  ) 

Q 

Q 

call 

ertran 

( 6  f  • WFREE 

32. 

. 

•  ) 

Q 

Cl 

call 

ERTRAN 

( 6  r • ©FREE 

33. 

. 

•  ) 

Q 

GS 

call 

ertran 

( 6 9  • QFREE 

34. 

. 

•  ) 

Q 

GI 

call 

ERTRAN 

( 6# • QFREE 

37. 

. 

•) 

Q 

time 

call 

ERTRAN 

( 6 • • QFREE 

38. 

. 

*  ) 

Q 

DTIME 

call 

ERTRAN 

( 6  » • QFREE 

39. 

. 

*  ) 

Q 

DHOLM 

call 

ertran 

( 6  9  •  iQFREE 

40. 

. 

•  ) 

Q 

DELEM 

call 

ertran 

( 6  r • QFREE 

41. 

. 

•  ) 

Q 

DEM 

call 

ertran 

( 6 1  « QFREE 

42. 

. 

*  ) 

Q 

DTEMPM 
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228 

229 

230 

231 

232 

233 

234 

235 

236 

237 


call  ertran  (6* • qfree  43.  .  m  q  pibm 

Call  ERTRAN  (6» • WFREE  44,  .  •)  0  PIVMIN 

call  ertran  <6# •  j^free  45.  .  •)  o  tempm 

CALL  ERTRAN  (6# • QFREE  46.  .  •)  0  CIM 

CALL  ERTRAN  (6*  f IJFREE  47.  .  •)  0  GSGR 

call  ertran  (6#mjfree  48.  .  »>  o  cdism 

Call  ERTRAN  (6» •QFREE  49.  .  • )  0  VDBlAS 

STOP 

END 
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TABLE  B.3 


GRAPH  CODES  FOR  PROGRAM  GRAPH 


Graph  Code 

Graph 

Graph 
Data  File 
Number 

Variable 

Cross  Section  Graphs: 

PX 

p*x 

20 

*N 

NX 

n*x 

21 

Axn 

PNX 

p,n*x 

22 

NI 

EX 

E*x 

23 

n 

TX 

T*x 

24 

P 

JPX 

J  *x 

P 

25 

E 

JNX 

J  *x 
n 

26 

V 

JDX 

JD*X 

27 

T 

JPNX 

Jp* Jn*x 

28 

J 

P 

JPNDX 

Jp,Jn’JD*X 

29 

J 

n 

VX 

V*x 

30 

JD 

DXX 

Axn** 

31 

Q 

DOPX 

NI*x 

32 

Ni 

QX 

Q*x 

33 

gsrh 

CIX 

N±*x 

34 

GI 

GSX 

gsrh*x 

37 

t 

GIX 

GI*x 

GSIX 

(gsrh+gi>*x 

Transient  Graph: 

VT  V*t 
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TABLE  B.3  (Continued) 


Graph  Code 

Graph 

Graph 

Data  File 

Number 

Variable 

DTT 

At*t 

38 

At 

DPT 

Ap  *t 

max 

39 

Ap 

rmax 

DNT 

An  *t 

max 

40 

An 

max 

DPNT 

Ap  ,  An  *t 

rmax  max 

41 

AE 

max 

DET 

AE  *t 

max 

42 

AT 

max 

DTEMT 

AT  *t 

max 

43 

PIB 

max 

TEMT 

T  *t 

max 

44 

PIV 

QSGRT 

QSGR*t 

45 

T 

max 

JDT 

JD  ** 
max 

46 

Ni 

max 

PIVT 

PIV*t 

47 

GSGR 

49  V 
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A  flow  chart  for  GRAPH  is  presented  in  Fig.  B.27  and  the  source  list¬ 
ing  in  Fig.  B.28.  GRAPH  employs  Tektronix  Graphing  II  software  [l,2],  in 
addition  to  the  subroutines  described  below. 

Subroutine  NTAB$ 

NTAB$  is  described  in  Appendix  B.l. 

Subroutine  GENCUR 

GENCUR  supervises  the  generation  of  the  graph  specified  by  GRAPH. 
This  procedure  includes  reading  the  appropriate  data  from  the  graph  data 
files,  determining  minimums  and  maximums  for  the  independent  variable  and 
dependent  variable  data,  establishing  the  type  of  data  plot  for  each  axis 
(linear  or  log),  establishing  the  graph  boundaries,  and  displaying  the 
resulting  graph.  Source  listing  for  GENCUR  is  presented  in_Fig.  B.29. 

Subroutine  LILOY 

LILOY  provides  a  linear  or  log  dependent  variable  (y-axis)  plot 
option.  If  the  log  plot  is  selected  and  the  dependent  variable  data 
passes  through  zero  a  change  of  boundaries  for  the  dependent  variable 
axis  is  solicited;  if  unchanged,  an  absolute  value  plot  of  the  depend¬ 
ent  variable  data  is  generated.  LILOY  source  listing  is  presented  in 
Fig.  B. 30. 

Subroutine  SELCS 

SELCS  solicits  the  number  of  cross  sections  and  the  numbers  for 
the  respective  cross  sections  to  be  plotted.  Source  listing  for  SELCS 
is  presented  in  Fig.  B.30.  - 


Subroutine  SMIMA 

SMIMA  updates  minimum  and  maximum  values.  Source  listing  for 
SMIMA  is  presented  in  Fig.  B.31. 

Subroutine  HEADER 

HEADER  generates  a  ledger  for  each  graph  consisting  of  the  graph 
title,  the  numbers  of  the  cross  sections  plotted,  and  run  code  designat¬ 
ing  the  run  that  generated  the  data  plotted.  Source  listing  for  HEADER 
is  presented  in  Fig.  B.32. 

Subroutine  LOAD 

Data  cross  sections  designated  for  display  are  read  from  the 
appropriate  graph  data  files  by  LOAD.  Source  listing  for  LOAD  is 
presented  in  Fig.  B.33. 

Subroutine  INMIMA 

INMIMA  is  used  to  initialize  minimum  and  maximum  variables. 

Source  listing  for  INMIMA  is  presented  in  Fig.  B.33. 
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Fig.  B.27.  Flow  Chart  for  Program  GRAPH 
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4 

b 

6 

7 

6 

9 

10 

11 

12 

13 

14 

lb 

lb 

17 

lb 

19 

20 

21 

22 

23 

24 

2b 

2b 

27 

26 

29 

30 

31 

32 

33 

34 

3b 

3b 

37 

36 

39 

40 

41 

42 

43 

44 

4b 

46 

47 

46 

49 

50 

51 

52 

53 

54 

5b 

5b 
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C**********  GRAPH  *********** 

INTERACTIVELY  GRAPHS  SIMULATION  RESULTS  ON  A  TEKTR0NICS 
GRAPHICS  TERMINAL.  REQUIRES  INDIVIDUAL  GRAPH  DATA  PILES 
GENERATED  BY  GOG  (GRAPH  DATA  GENERATOR). 

DIMENSION  I RUN (j).KGC(l2) 

DIMENSION  KGCODE (29) .NUC4.29) 

DIMENSION  NSCS(J5)»CSTIM£<35) 

COMMON  X(1000) »Yl( 1000) »T2( 1000) .Y3( 1000) 

DATA  KONE/ • OOOOU1 * /KSTOP/ • STOP’/ 

DATA  IRuN(2)/'  • /KNFW/ • NEW’ / 

DATA  NGC/1S/ 

DATA  KGC/12* '  •/ 

DATA  KGCODE/ • PX • *  *  NX • » ' PNX • » 
l’EX’.’Tx'.' JPX • * • JNX* » 

2 • JUX • » • oPNX • » ' JPNDX • » 

3’  VX '  * • V  I • « ’DXX’ . ' DOPX • » • OX ' » 

4  •  C I A  • »  ’ oSX • » • GI X • » • GSI X  * • • DTT ’ . »  OPT • . • ONT • » 

5’DPNT’ » ’JET’ r ’DIENT* . • TEmT • » • QSGRT • * • JOT  *  * ’PIVT’/ 

DATA  NU/20.23.0. 0*20.24.0.0* 

120» 23. 24.0.20 *25. 0.0. 

220.27.0.0.20*20*0*0. 

320*29.0.0*20. 30.0*0. 

420.26.29*0.20.28.29*30. 

520 . 2o t  G • 0 » 37  .  49  #  U * 0  * 
b20*21*0*0*20»22»U»0* 

720*31.0.0.20.32.0.0. 

820 •33*0.0.20.34.0.0. 

920 . 33 » 34 » 0 . 37 . 3« . 0 . 0 * 

137.09. 0.0. 37.40. 0.0. 

237. 39. 40. 0.37. 41.0.0. 

337 .42.0.0.37.45.0.0. 

437.47.0.0.37. 4ft. 0.0. 

537.44.0.0/ 

ASSIGN  DATA  FILES 


CALL 

ERTRAN 

( 6» 

1 UASG*  AX 

20. 

. 

•) 

0 

XXN 

CALL 

ERTRAN 

(6# 

'UASG'AX 

21. 

. 

t) 

0 

OXN 

CALL 

ERTRAN 

( 6  r 

f  toiASGt  AX 

22. 

. 

•> 

0 

DO  PN 

CALL 

ERTRAN 

(6# 

• WASGr  AX 

23. 

. 

•) 

0 

HOL 

CALL 

ERTRAN 

( 6f 

•0ASb*AX 

24. 

. 

•) 

9 

ELE 

CALL 

ERTRAN 

( 6  9 

'UASG'AX 

25. 

. 

•  ) 

id 

E 

CALL 

ERTRAN 

(6* 

'UjASG’AX 

26. 

. 

•> 

0 

V 

CALL 

ERTRAN 

( 6  r 

'SASG’AX 

27. 

. 

t) 

0 

TEMP 

CALL 

ERTRAN 

(6r 

•  0ASG *  AX 

28. 

. 

•  ) 

0 

CIJRHOL 

CALL 

ERTRAN 

(6# 

1 UASG’ AX 

29. 

. 

•> 

0 

CURELE 

CALL 

ERTRAN 

( 6  r 

•wASG* ax 

30. 

. 

•  ) 

0 

CURDIS 

CALL 

ERTRAN 

(6t 

• 0ASG  9  AX 

31. 

. 

•) 

0 

Q 

CALL 

ERTRAN 

(6# 

f  iwASGr  AX 

32. 

. 

•  ) 

0 

Cl 

CALL 

ERTRAN 

(6# 

•  0ASG*  AX 

33. 

. 

•> 

0 

GS 

CALL 

ERTRAN 

<6t 

1 0AS6*  AX 

34. 

• 

•) 

0 

GI 

Fig.  B.28.  Listing  for  Program  GRAPH 
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57 

5b 

59 

60 

61 

62 

63 

64 

65 

6b 

67 

66 

69 

70 

71 

72 

73 

74 

7b 

76 

77 

7b 

79 

80 

81 

82 

83 

84 

8b 

66 

87 

86 

69 

90 

91 

92 

93 

94 

9b 

9b 

97 

96 

99 

100 

101 

102 

10b 

104 

10b 

106 

107 

106 

109 

110 

111 

112 

113 


CALL 

ERTRAN 

(6''QASG'AX 

37. 

. 

•) 

0 

TIME 

CALL 

ERTRAN 

(6»  •  UASb'  AX 

36. 

. 

•> 

Q 

□TIME 

CALL 

ERTRAN 

(6*  'UASG*  AX 

39. 

. 

•> 

9 

DHOLM 

CALL 

EK1KAN 

( 6»  '«iAS(j  »  AX 

40. 

. 

•) 

0 

DELEM 

CALL 

ERTRAN 

(6»  *  UASG*  AX 

41. 

. 

•) 

0 

DEM 

CALL 

ERTRAN 

(6*  'UASb'AX 

42. 

. 

•) 

0 

DTEMPM 

CALL 

ERTRAN 

(6*  • kJASG*  AX 

43. 

. 

•) 

0 

PIBM 

CALL 

ERTRAN 

<6*  *«iASli»AX 

44. 

. 

•) 

Q 

PIVMIN 

CALL 

ERTRAN 

(6* 'WASG'AX 

45. 

. 

•  ) 

0 

TEMPM 

CALL 

ERTRAN 

(6* 'UASG*  AX 

46  . 

. 

•) 

y 

CIM 

CALL 

ERTRAN 

(6' 'UASG' AX 

47. 

. 

•) 

0 

GSGR 

CALL 

ERTRAN 

(6» 'UASG'AX 

48. 

. 

•) 

u 

COISM 

CALL 

ERTRAN 

(6' 'UASG'AX 

49. 

. 

•) 

0 

VDBIAS 

C 

C  OBTAIN  DATE  AND  TIME  FROM  DATA  FILE  22 
REA012 2#2)  IRUN(l) #1RUN13> 

2  FORMAT(ao) 

REMIND  22 
C 

C  INITIALIZE  ADVANCED  GRAPHICS  II  SYSTEM 
CALL  IN1TT (30) 

C 

b  CONIINUt 

C 

C  SPECIFY  wHICH  GRAPH 
WRITE (b* 10) 

lu  FORMAT  1/  *  •  WHICH  GRAPH*) 

REAu (b* lb)  KWG 
lb  FORMAT ( mo) 

C 

DO  20  K=i#NGC 

IFUwG. NE. KGCODE(K)  >  GO  TO  20 
C 

KGC(l)=KGCODE(K) 

NUX-NU ( 1 » K ) 

NUY1=NU12#K) 

NUY2=NU(3tK) 

NUY5=NJ(4»K) 

GO  TO  100 
C 

20  CONTINUE 
C 

C  DEFINE  NEM  GRAPH  COMBINATION 
IF ( KWG *NE« KNEW)  GO  TO  24 
MRlTE(b#21) 

21  FORMAT (•  ENTER  GRAPH  TITLE*) 

READ ( bf  30 )  KGC 

30  FORMAT (12A6) 

WRITE(o«22) 

22  FORMAT ( •  SPECIFY  UUX*NUY1*NUY2#NUY3* ) 

READ  ^  br 23)  NUX # NUY1 » NUY2 # NUY3 

23  FORMAT () 

GO  TO  100 

C 

24  CONTINUE 
C 

C  TERMINATE  XOT 


Fig.  B. 28.  (Continued)  Listing  for  Program  GRAPH 
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114 

115 

116 

117 

118 

119 

120 

121 

122 

123 

124 

125 

126 

127 

126 

129 

130 

131 

132 

133 

134 

135 

13b 

137 

138 

139 

140 

141 

142 

143 


IF(KWG.NE.KSTOP)  GO  TO  26 
WRITE (6#27) 

27  FORMAT ( *  ♦*♦♦*♦**♦*  XOT  TERMINATED  **♦*♦***♦*•> 

GO  TO  1000 
C 

C  ERROR 

2d  CONTINUE 

WRITE (6*  25) 

25  FORMAT ( 1  ERROR?  UNDEFINED  GRAPH  REQUESTED#  TRY  AGAIN9 ) 

C 

GO  TO  5 
C 

c**********  generate  graph  ********* 

c 

1U0  CONTINUE 
IFLAG-0 
INEoY=l 

105  CONTINUt 

CALL  BluITT 

*RITE(6»110)  (KGC ( J) » J=1 » 11 ) 

110  FORMAT (/*lX*llAb*/) 

CALl.  GEhCUR  ( I  FLAG  *  I NEGY  *  NUX  *  NU  Y 1  *  NU  Y2 » NUY3  *  NSCS  *  CST I  ME ) 
C ALu  HE AUER  U 50  #  7 75 » KGC  r  NSCS # I RUN ) 

CALL  TlNPUTlKSIo) 

CALL  ERASE 

IF(KSIG.EO.KONE)  GO  TO  b 
GO  TO  105 
C 

1000  STOP 
ENU 


Fig.  B.28.  (Continued)  Listing  for  Program  GRAPH 
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1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 


SUBROUTINE  GENCUR ( I FLAG # INEGY # NUX #  NUY 1 # NUY2 #NUY3#NSCS#  TIME) 

C 

C  SUB  GENCUR  LOADS  APPROPRIATE  DATA  FROM  DATA  FILES# 

C  INTERACTIVELY  UPDATES  MINS.  AND  MAXS.  AND  DISPLAYS 
C  THE  SUBSEQUENT  CURVES.  A  MAX  OF  THREE  DEPENDENT 
C  VARIABLES  CAN  BE  PLOTTED.  INDEPENDENT  AND  RESPECTIVE 
C  DEPENDENT  VARIABLES  STORED  IN  SEPARATE  DATA  FILES 
C  AS  SPECIFIED  IN  ARG.  LIST. 

C 

COMMON  X ( 1000) #Y1( 1000) #Y2< 1000) #Y3< 1000) 

DIMENSION  T I ME ( 1 ) # NSCS ( 1 ) 

C 

C  SUPPRESS  GRID  LINES 
IG=2 

CALL  XFRM(IG) 

CALL  YFRM(IG) 

C 

C  SELECT  CROSS  SECTIONS  TO  BE  DISPLAYED 
CALL  SELCS ( IFLAG  #  NSCS  #  NDEFCS ) 

C 

C  LOADING  REQUIRED? 

IFdFLAG.NE.O. AND. NDEFCS. EQ.O)  GO  TO  235 
C 

C  LOAD  SPECIFIED  CROSS  SECTIONS 
C 

C  READ  DATE  AND  TIME  SUCH  AS  TO  SKIP 
READ(NUX#213)  IDATE# ITIME 
IF(NUYl.NE.O)  READ(NUY1 #213)  IDATE # ITIME 
IF (NUY2.NE.0)  READ(NUY2#213)  IDATE# ITIME 
IF (NUY3.NE* 0 )  READ(NUY3#213)  IDATE# ITIME 

213  FORMAT ( A6) 

C 

C  INITIALIZE  MINS.  AND  MAXS. 

CALL  INMIMA (XMIN#  XMAX#  YMIN#  YMAX) 

C 

C  INITIALIZE  NUMBER  OF  CROSS  SECTION  TIMES  SAVED 
TIME ( 1 )=NSCS( 1 ) 

C 

K=1 

JX=1 

DO  230  1=1 *99 

IF (NSCS (K+l ) • NE • I )  GO  TO  225 
C 

C  LOAD  CROSS  SECTION  AND  UPDATE  MINS.  AND  MAXS. 

CALL  LOAD ( INEGY  # I EOF  #  NUX  #  X ( JX ) #  XT I ME  #  TXMIN#  TXMAX ) 

C 

IF(IEOF.EQ.O)  GO  TO  214 
NSCS(1)=K 
TIME ( 1 ) =K 
GO  TO  233 

214  CONTINUE 
C 

CALL  SM1MA( XMIN# TXMIN# XMAX# TXMAX) 

CALL  LOAD (INEGY# I EOF  #NUY1#Y1( JX) # Y ITIME # TYM IN • T YMAX ) 

CALL  SMIMA (YMIN# TYMIN# YMAX #TYMAX) 

IF (NUY2.NE.0)  CALL  LOAD( INEGY# IE0F#NUY2# Y2 (JX) #Y2TIME#TYMIN#  TYM AX  ) 


Fig.  B.29.  Listing  for  Subroutine  GENCUR 
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57 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 


IFCNUY2.NE.0)  CALL  SMIMA(YMIN# TYMIN# YMAX#TYMAX) 

IFINUY3.NE.0)  CALL  L0AD( INEGY # IE0F#NUY3# Y3 ( JX ) # Y3TIME # TYMIN# TYMAX ) 
IF(NUY3.NE#0)  CALL  SMIMA ( YMIN*TYMIN# YMAX#TYMAX) 

C 

C  CHECK  CROSS  SECTION  COMPONENT  CORRESPONDENCE 
IF(XTIME.NE.YITIME)  GO  TO  217 
IF(NUY2.NE.O. AND. XTIME. NE.Y2TIME)  GO  TO  217 
IF(NUY3.NE.O. AND. XTIME. NE.Y3TIME)  GO  TO  217 
GO  TO  220 

217  WRITE (6*215)  XTIME 

215  FORMAT ( 1  ERRORS  XTIME=f #E15.8# • *  XTIME. NE. YTIME* ) 

STOP 

C 

220  CONTINUE 
C 

C  SAVE  CROSS  SECTION  TIME#  TIME < 1 ) =NSCS ( 1 > 

TIME(K+1)-XTIME 

C 

C  COMPUTE  X  AND  Y  POSITION  OF  NEXT  CROSS  SECTION 
JX=JX+X(JXm 


C 

C  ALL  SPECIFIED  CROSS  SECTION  LOADED? 
IF(K.EQ.NSCSd)  )  GO  TO  233 
K=K«H 


GO  TO  230 
225  CONTINUE 
C 

C  SKIP  NEXT  CROSS  SECTION 
CALL  SKIP(NUX) 

CALL  SKIP(NUYI) 

IF (NUY2.NE • 0 )  CALL  SKIP(NUY2) 
IF (NUY3.NE ♦ 0 ) 

CONTINUE 


230 

C 

233 


CALL  SKIP (NUY3) 


CONTINUE 
REWIND  NUX 
REWIND  NUY1 
IF (NUY2.NE#  0 ) 
IF (NUY3.NE • 0 ) 


REWIND  NUY2 
REWIND  NUY3 


C 

235  CONTINUE 
C 

C  SPECIFIED  CROSS  SECTIONS  LOADED! 

C  DEFINE  MINS.  AND  MAXS.*  WITHOUT  CHANGING 
CALL  SPMIMA(XMIN*XMAX#YMIN#YMAX) 

C  LINEAR  OR  LOG  Y-AXIS 

CALL  LILOY ( INEGY # YMIN# YMAX#NSCS( 1 ) #NUY1#NUY2#NUY3# ILLY) 


C 

C  LINEAR  OR  LOG  X  -  AXIS 
WRITE ( 6#  237 ) 

237  FORMAT ( •  1 -LINEAR#  2-LOG#  X-AXIS  SCALE* ) 
READ<5*238)  ILL 

238  FORMAT () 

CALL  XTYPE(ILL) 

CALL  YTYPE(ILLY) 

C 

C  GENERATE  GRAPH 


Fig.  B.29.  Listing  for  Subroutine  GENCUR 
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114 

115 

116 

117 

116 

119 

120 

121 

1 22 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 


o  o 


C  PLOT  FIRST  CROSS  SECTION 
CALL  ERASE 

CALL  CHECK (X(1)»Y1(1)) 

CALL  OSPLA Y (X(l)tYi(l)) 

IF ( 16. LT *5)  CALL  FRAME 
IF(NUY2.NE.O)  CALL  LINE (34) 
IF(NUY2.NE.O)  CALL  CPLOT(XC)  »Y2(1) ) 
IFINUY3.NE.0)  CALL  LINE (52) 
IF(NUY3.NE.O)  CALL  CPLOT ( X ( 1 ) *  Y3 ( 1 ) ) 

C 

IF(NSCS(1) .EQ.l)  GO  TO  245 

PLOT  REMAINING  CROSS  SECTIONS 
KK=NSCS(1) 

JX=1 

DO  2*»0  K=2.KK 
JX=JX+X(1)+1 
CALL  LINE ( 1 ) 

CALL  CPLOT (X(JX) tYl(JX) ) 

IF(NUY2.NE.O)  CALL  LINE(34) 
IF(NUY2.NE.O)  CALL  CPLOT(X( JX) ,Y2(JX> ) 
IF(NUY3.NE.0>  CALL  LINE(52> 
IF(NUY3.NE.O)  CALL  CPLOT (X(JX) »  Y3( JX) ) 
240  CONTINUE 
245  CONTINUE 
C 

IFLAG=I 

C 

RETURN 

END 


Fig.  B.29.  (Continued)  Listing  for  Subroutine  GENCUR 
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1 

z 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 


SUBROUTINE  LILOY ( INEGY# YMIN# YMAX# INCS#NUY1 # NUY2#NUY3# ILLY ) 

C 

C  SUB.  LILOY  PROVIDES  LINEAR  OR  LOG  Y-AXIS  OPTION 
C  IF  LOG  OPTION  REQUESTED#  Y-AXIS  DATA  IS  CONDITIONED 
C  ACCORDING  TO  SIGNS  ASSOCIATED  WITH  YMIN  AND  YMAX 
C 

COMMON  X(1000) #Y1( 1000) #Y2( 1000) »Y3( 1000) 

C  LINEAR  OR  LOG  Y-AXIS  SCALE 
WRITE<6#5) 

5  FORMAT ( •  1 -LINEAR#  2-LOG  Y-AXIS  SCALE*) 

READ ( 5  # 10 )  I 

10  FORMAT () 

C 

C  ABSOLUTE  Y-AXIS  PLOT 
WRITE ( 6  # 1 1 ) 

11  FORMAT ( 1  1-ABSOLUTE  Y-AXIS  PLOT*) 

READ (5# 10)  IABS 
IF(IABS.NE.I)  GO  TO  14 

C 

9  CONTINUE 

C  GENERATE  ABS  VERSION  OF  DEPENDENT  VARIABLE  ARRAYS  AND 
C  REEVALUATE  YMIN  AND  YMAX 
YMIN=1.0D20 
YMAX=-1.0D20 
NP=Y1(1)+1.5 
DO  12  K-2#  NP 
Yl(K)=AbS(Yl(K)) 

YMIN=AMIN1(YMIN#Y1(K) ) 

YMAX=AMAX1(YMAX#Y1(K) ) 

IFCNUY2.LE.0)  GO  TO  12 
Y2(K)=ABS(Y2(K) ) 

YMIN=AMIN1(YMIN#Y2(K) ) 

YMAX=AMAX1(YMAX#Y2(K) ) 

IF (NUY3.LE • 0 )  GO  TO  12 
Y3(K)=ABS(Y3(K) ) 

YMIN=AMIN1(YMIN#Y3(K) ) 

YMAX=AMAX1(YMAX#Y3(K) ) 

12  CONTINUE 
C 

C  UPDATE  USER  SPECIFIED  YMIN#  AND  YMAX 
CALL  SMIMAY(YMIN#YMAX) 

C 

14  CONTINUE 

c 

IFU.EQ.2)  GO  TO  15 

IF(INEGY.LT.O)  CALL  NEGY ( INEGY # INCS#NUY1#NUY2#NUY3) 

ILLY=1 

RETURN 

c 

15  CONTINUE 

C  RETRIVE  SPECIFIED  YMIN  AND  YMAX 
TYM1N=C0MGET ( IBASEY ( 11 ) ) 

TYMAX=COMGET ( IBASEY ( 12) ) 

C 

IF (TYMlN.GT • 0 )  GO  TO  30 
IF(TYMAX.LT.O)  GO  TO  25 


Fig.  B.30.  Listing  for  Subroutine  LILOY 
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57 

56 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 


C 

WRITE (6#20 ) 

20  FORMAT <•  ERROR:  LOG  CURVE  PASSES  THROUGH  ZERO*#/* 

l*  o  -  redefine  y-axis  boundaries* #/# 

2*  l  -  absolute  y-axis  plot*) 

READ (5# 10)  IYBND 

IF ( I YBNO.EQ. 1 )  GO  TO  9 

CALL  SMI MAY ( YMINr  YMAX ) 

GO  TO  15 
C 

25  CONTINUE 

C  NEGATE  Y-AXIS 

IF(INEGY.GT.O)  CALL  NEGY( INEGY# INCS#NUY1 #NUY2#NUY3) 
C  NEGATE  YMIN  AND  YMAX 

CALL  DLIMY(-TYMAXt-TYMlN) 

C 

GO  TO  35 
30  CONTINUE 

IFUNEGY.LT. 0)  CALL  NEGY ( INEGY#  INCS#NUY1#NUY2#NUY3) 
35  CONTINUE 

ILLY=2 
C 

RETURN 

END 


Fig.  B.30.  (Continued)  Listing  for  Subroutine  LILOY 
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1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

1 

2 

3 

4 

5 

b 

7 

8 

9 


o  o  o  o 


SUBROUTINE  SELCS (IFLAG . NSCS » NOEFCS ) 


SUB.  SELCS  PROVIDES  FOR  SELECTION  OF  CROSS  SECTIONS 
NDEFCS-0  -  NSCS  UNCHANGED  -  LOADING  NOT  REQUIRED! 

DIMENSION  NSCS(l) 

C 

IF(NSCS<1) .LT.l. OR. IFLAG. EQ.O)  GO  TO  20 
KK-NSCS(1)+1 

WRITE (6. S)  (NSCS(K) *K=2.KK) 

5  FORMAT (•  SPECIFIED  CROSS  SECTIONS*  t/t 

11X# 12*30 ( *  * • » 12) ) 

C 

WRITE (6. 10  > 

10  FORMAT ( *  1  -  REDEFINE  CROSS  SECTIONS*) 

READ! 5» 15)  NDEFCS 
15  FORMAT!) 

C 

IF (NDEFCS. EQ.O)  RETURN 
C 

20  CONTINUE 

NDEFCS=1 
WRITE(6*25) 

25  FORMAT! •  HOW  MANY  CROSS  SECTIONS?*) 

C 

READ(5* 15)  NSCS! 1 ) 

IF(NSCS(1) .LT.l)  GO  TO  20 
C 

WRITE (6. 50) 

30  FORMAT!*  WHICH  CROSS  SECTIONS*) 

KK=NSCS(1)+1 

READ(5* 15)  (NSCS(K) *K=2*KK) 

C 

RETURN 

END 

(a)  Listing  for  SELCS 


SUBROUTINE  SMIMA (XM IN* TXMIN* XMAX * TXMAX ) 
C 

C  UPDATES  MINIMUM  AND  MAXIMUM. 

C 

XMIN=AM1N1(XMIN* TXMIN) 

XMAX=AMaX1 (XMAX * TXMAX ) 

C 

RETURN 

END 

(b)  Listing  for  SMIMA 


Fig.  B.31.  Listing  for  Subroutines  SELCS  and  SMIMA 
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1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 


o  <ji  o  o  o  o  r> 


SUBROUT I NE  HEADER ( I X » 1 Y . I T I TLE  *  NSCS  » I RUN  > 

SUB  HEADER  GENERATES  6RAPH  TITLE#  CS-CODE.  RUN  NO. 

DIMENSION  NSCS ( 1 ) » IRUN< 1 ) # ITITLE ( 12) 

DIMENSION  ICS(33) # IARRAY ( 15) 

DATA  IFILL/32/ 

DATA  ICS/32 #  67 • 83 »  32 » 32  #  32 » 44 # 

132# 32# 44# 32# 32# 44 #32# 32. 44# 

232# 32 #44 #32# 32# 44. 32# 32. 44# 

332. 32.44.32# 32 »44. 32# 32/ 

KK=NSCS(1> 

ICS(1)=2+3*KK 
DO  5  K=1.KK 
J=2+3*K 
FNUM=NSCS(K+1) 

CALL  IFOKMtFNUM. IWIDTH. I ARRAY . IF  ILL) 

ICS(J)=32 

IF ( IMIDTH.6E.2)  ICS(J)=IARRAY( IWIOTH-1) 

ICS( J+l )=I ARRAY ( ImIDTH) 

CONTINUE 

CALL  MOVABS ( IX# I Y ) 

DO  10  K=1 . 12 

CALL  AOUTST (6. IT ITLE (K ) ) 

10  CONTINUE 

CALL  NOTATE (IX. IY-30. ICS(l) # ICS (2) ) 

CALL  MOVABS ( IX. IY-55) 

CALL  AOUTST (6. IRUN(l) ) 

CALL  AOUTST (3. I RUN (2) ) 

CALL  AOUTST (6. IRUN(3) ) 

C 

RETURN 

END 


Fig.  B.32.  Listing  for  Subroutine  HEADER 
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1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 


SUBROUT 1 NE  LO AD ( I NEG Y # I EOF # NU # X # T I ME # XM I N  #  XM A  X ) 
C 

C  SUB  fLOADf  LOADS  NEXT  CROSS  SECTION 
C 

DIMENSION  X(l) 

C 

C  SET  INEGY 

INEGY=1 

IEOF=0 

C 

C  READ  NUMBER  OF  DATA  POINTS 
READ (NU#  5#END=100 )  X(l) 

5  FORMAT (E15#8) 

C 

C  LOAD  CROSS  SECTION 
NP=X(1)+1 
DO  10  K=2#NP 
READ(NU»5)  X (K ) 

10  CONTINUE 

C 

READ (NU#  5)  TIME#  XMIN#  XMAX 
C 

return 

c 

100  continue 

IEOF=l 

return 

c 

END 

(a)  Listing  for  LOAD 


SUBROUTINE  INMIMA ( XMIN# XMAX • YMIN# YMAX ) 
C 

C  INITIALIZES  MINIMUMS  ANO  MAXIMUMS. 

c 

XMIN—  1.0E20 
XMAX=-i.0E20 
YMIN=  1.0E20 
YMAX=-1.0E20 
C 

RETURN 

END 


(b)  Listing  for  INMIMA 


Fig.  B.33.  Listing  for  Subroutines  LOAD  and  INMIMA 
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Subroutine  SPMIMA 


SPMIMA  outputs  the  minimum  and  maximum  values  for  the  dependent 
variable  data  to  be  plotted,  and  solicits  the  respective  minimum  and 
maximum  values  desired  for  the  graph  to  be  generated.  Source  listing 
for  SPMIMA  is  presented  in  Fig.  B.34. 

Subroutine  SKIP 

SKIP  is  called  to  skip  data  cross  sections  not  designated  for 
display.  Source  listing  for  SKIP  is  presented  in  Fig.  B.34. 

Subroutine  NEGY 

NEGY  negates  the  dependent  variable  arrays  to  be  plotted.  Source 
listing  for  NEGY  is  presented  in  Fig.  B.35. 

Subroutine  SMIMAY 

SMIMAY  outputs  the  minimum  and  maximum  values  for  the  dependent 
variable  data  to  be  plotted,  and  solicits  the  respective  minimum  and 
mazimum  values  desired  for  the  graph  to  be  generated.  Source  listing 
for  SMIMAY  is  presented  in  Fig.  B.35. 
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24 


SUBROUTINE  SPMIMA ( XMIN * XMAX * YMIN* YMAX ) 

C 

C  ALLOWS  OPERATOR  TO  DEFINE  BOTH  Y-AXIS  AND  X-AXIS  BOUNDS 
C  FOR  GRAPH  BEING  GENERATED. 

C 

WRITE (6*5)  XMlNrXMAX 

5  FORMAT (Ell .4# 9  XMIN9 */*Ell .4* 9  XMAX9 ) 

READ ( 5* 10 )  TXMIN*  TXMAX 
10  FORMAT O 

C 

WRITE (o* 15)  YMIN*  YMAX 

ID  FORMAT (Ell .4  *  9  YMIN9  */*Ell .4* 9  YMAX9) 

READ (5*10)  TYMIN* TYMAX 
C 

C  SET  MINS*  AnD  MAXS. 

CALL  DL1MX(TXMIN*TXMAX) 
call  DL1MY(TYMIN*TYMAX) 

c 

RETURN 

END 

(a)  Listing  for  SPMIMA 


SUBROUTINE  SKIP(NU) 

C 

C  SUB.  • SKIP 9  SKIPS  NEXT  CROSS  SECTION 
C 

C  READ  NUMBER  of  DATA  POINTS 
READ(NU,5,END=100)  TNP 
5  FORMAT (El5. 8) 

C 

C  READ  CROSS  SECTION 
NP=TNP 

DO  10  K=1*NP 
READ(NU*5)  X 
10  CONTINUE 

C 

C  READ  TIME  *  XMIN  *  XMAX 
READ (NU*  5)  X*X*X 
C 

RETURN 

c 

100  CONTINUE 

WRITE (6*110)  NU 

110  FORMAT (•  ERRORS  UNEXPECTED  EOF  FOR  SUB  SKIP*  NU=*t 
113) 

END 


(b)  Listing  for  SKIP 


Fig.  B.34.  Listing  for  Subroutines  SPMIMA  and  SKIP 
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SUBROUT I NE  NEG Y < I NEG Y • I NCS » NU Y 1 1 NU Y2  #  NU Y  3 ) 
C 

C  SUB.  NEGY  NEGATES  Y-AXIS  OATA  VALUES 
C 

COMMON  X(1000) »Y1( 1000) »Y2 (1000) »Y3( 1000) 
INEGY=-1NEGY 
C 

N=0 

DO  5  K=1*INCS 

N-N+l 

NP=Y1(N) 

DO  5  J=1#NP 
N=N+1 

Y1(N)=-Y1(N) 

IF (NUY2.EQ. 0 )  GO  TO  5 
Y2(N)=-Y2(N) 

IF (NUY3.EQ. 0 )  GO  TO  5 
Y3(N)=-Y3(N) 

5  CONTINUE 
C 

RETURN 

END 

(a)  Listing  for  NEGY 


SUBROUTINE  SMIMAY ( YMlNr  YMAX ) 

C 

C  ALLOWS  OPERATOR  TO  DEFINE  Y-AXIS  BOUNDS  FOR  GRAPH 
C  BEING  GlNERA  Tt.D* 

C 

WRITE (6» lb)  YMlMtYMAX 

lb  FORMAT lt.ll.4r  •  YM1N» t/»E11.4r •  YMAX 1 ) 

REAU<5#10)  T YMIn#  TYMAX 
10  FORMAT O 

C 

C  SET  CYUM1N  AND  CYDMAX 

CALL  DLlMY(TYMlNrTYMAX) 

C 

RETURN 

END 


(b)  Listing  for  SMIMAY 


Fig.  B.35.  Listing  for  Subroutines  NEGY  and  SMIMAY 
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